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Apology 

This, pnaouaI la intended to be a guide to the phi Hosopby end 
use of thd programming language Cohhiver, which is "tomb I ete, “ 
and running at the AS Left now. It assumes good knowledge Of 
Lisp. but QE knowledge gf Hi cro-P I anner + in whose implementation 
many design decisions were made that are not to be expected to 
have consequencea in Conniver, Those not familiar with L i Op 
Should consult Melosman’s (1.9E71 Primer , the Liso I■5 
Programmer 'a Hanus I (fleCarthy ti- , 19E2)* or Jon L* Whlto’o 
(.19701 and others’ (PDF-6, 19G7) excel lent memos hers at our cun 
lab# 

Conniver embedieg few original ideas, but is hopefully an 
original combination gf the good ideas of others* Me must 
acknow I edge Car I Hewitt’s Planner language {Hewitt, 1971) for 
giving ua most of our ideas about data structure, although 
Conniv*r looks at Its world differently from Planner. The 
control structure, including the concepts "access" and "control *" 
was enormously influenced by Daniel G, Bobrow, [Bobrow and 

Uegbreit, 19721. The variable declaration suntan is closely 
related to the ItUDDLE syntax developed by Christopher Reeve- Our 
philosophy has been greatly influenced by Joel Hoses. 

Several people read the first versions of this manual and 
influenced this ons, especially David McDonald* Terry WI nograd, 
Sidney Harkouiti, Hi Chao I Specinsr, and Jeff Hub I ft* The current 
soman tics of da ta-pr opart y functions is partly due to a 
suggest! on by HI chad Geoear eth. Last in this category, but not 
least in one respect, is Hichael Levin? his ton fusion at the 
terseness of some of my explanations has gone one step toward 
avenging the confusion Of an entire generation Of programmers at 
hi a Li bp L*S manual - 

Some of the notations I convent lone of the manual arai 
Actual code is in upper case 
Syntactic variables are lower case 

Optional arguments or list components are delimited by 

brackets (1,1) surrounding the syntactic variable and its 
default value, if ary. 

Segment syntactic variables are dot I ml tod by starg (sk)* 
Quoted arguments are flagged with a quota (M. tin evaluated 
segment arguments Start with '■** 

"Gontro I ^1 fitter 1 " Is indicated by ""■‘‘letter". "Dp-arrow 1 ' Is 
denoted: by "Left Snow," by 
"Altmode" is denoted by E, 

Arguments are often given mnemonic names, as in (ADD atom)* 
If the argument is not quoted* this notation moans it Is 
to evaluate to something described by the name? hence, 
(ADD (CAR X)J is legal if X starts with an atom, 

OYM 






Contents 


I BASIC CQNNIVEH 

1 Introduction 

2 Pattern-Access i ti 1 1 Data 

3 Conniver Programs 

4 Contents 

5 Defining Functions 
G Generators 

7 Generalised Control Structures 


It HAIRY CONTROL STRUCTURE 

1 Uhat a Frame le 

1.1 Hom to Be a Programming Language 
It2 Connlver Control Structure 

1+2+1 Framae 

1.2.2 Tags 

1+2+3 Closures 

2 Method's 

2.1 If-addgds and 1f-renoveds 

2.2 If^neededs 

2.3 Closures of Methods 

3 Generators 

4 App 1 i cat i one 

4.1 Backtracking 

4.2 Multipr a cea sing 


III J-tAJRY DATA STRUCTURE 

1 Typed of Data 

1.1 Object* 

1.2 Indexable Data 

1.2+1 Types of Indexable Data 
1.2.1+1 Item Data 

1.2.1.2 Methods and Method Closures 

1.2.2 The Inde* 

2 Properties of Data 

3 Implementation of Contexts 
3+1 Presence and Absence 

3 + 2 iKpI ernentat 1 on of Propertist 

3.3 Context Layer* 



3 + 4 Nonstandard Contents 


4 Named Hat a 


IV DN PATTERN-DIRECTED INVOCATION 


V USING CONNIVER 


VI LISP AND CONNtVER 


VII APPENDIX! THE C0NN3YEH REFERENCE SOURCE 

I The Evaluator 
Irl Communication with Lisp 

A. RUN, STOP 
R. START 

1.2 Procedure Definition 
A. CDEFUN 

&. IF-ADDED, IF-flEttWED* 1F-NEEDED 

1 ■ 3 Sc oucncc Ev a Iuator a 

A. PROG + PRGG&tND 

B. COND 

C. AND, DR 

1.4 Frame Creature and Nan i pu I a tor a 
A. FRANE, ACCESS. CONTROL. EXPRESSION 
3. TAG,. ACTBLOCK 
C. YFRATIE 
0. CLOSURE 

E, SETACCESS, 5ETCQHTRDL 

F. SAHEFRAJ1E 

1+E Alteration of Flou of Control 
A* CONTINUE, CD 
fi + EXIT, RETURN, DISMISS 
C. ADIEU, AU-flEVOIR 

l.B Relative Evaluation 
A, CEVAL 
B+ CALL 
C. INVOKE 

1.7 Variable lien i pul afore 

A, VLOC, RVALUE, LVALUE, ASSIGNED? 


PAGE 5 


B* CSET, CSETO. UN ASSIGN 

1,8 Possibilities Lists 

A. TflV^NEKT 

Possibilities tytsces *TlFTHOD. vtGEliifiATGR, *Atl-flEYQJR* 
ViNQTE, ussr-defined types, values, 

B. GENERATE 
C* INSTANCE 
0* NOTE 

E. ADIEU, AU-REVGZR 
F* GET-POSSIBILITIES 
G. SE T-P05S E BILITIES 

1.3 The Interrupt Systea 

A, CINTERRUPT, NOW 

B. ALLGII 


2 The Data Bags 

2.1 Data-Base Initialisation 
DATA-I NIT 


2.2 Datum Creation anti Flani pu I at I on 

A. OBJECT 

B. NAME-DATUM 

C, DATUn 

D. ITEM 

E, IF-ADDED, IF-REMOYED, if-neeoed 

F, METHOD-TYPE, delete-method-type 

2.3 Enlarging, Depleting, and Searching the Data Base 
A* REALIZE. UNREALIZE. ACTUALIZE, UNACTUAllZE 

ADD, REMOVE, INSERT, KILL 

B, ADD, REMOVE. INSERT. KILL 

C, FETCH, FETCHI, FETCHM 

2.4 Properties of Data 

A. REAL. UNREAL, PRESENT, ABSENT 

fi* DPUT. DDET. DREM. DPUT-i-, QOET+, QREH+ 

C, DPUTL. DGETL. DSEML 

2 + S Manipul ating Contexts 
A, LAVER, FLUSH 

B- PUSH-CONTEXT* PDP-CDNTEXT, FINALIZE, 

MEU-CQNTEXT. SPLICE 
C* IN-CONTEXT 
O. MENTIONED, CONTEXT* 

E, C-MARKER 


2-B The Hatcher 

A* 

B+ I,var 
C. ] , {vair value] 
Q+ l<*ar 
E+ j ? var 

F. I:vac 

G+ 1'war 


3 Debugging in Ccnnrver 
3+1 L ietern-Loot; Builders and Han i pu I a tor 
A+ LISTEN., EAR, NEAR, TDP 
fi. UP, DQUhl, J 
C+ CERFt, CBREAK, CERRMESS 


3+2 Date Frinttfr* 

A, CPfllNT, CPRtNl 

B. EXPRESSION* BACKTRACE 
C+ PATH 


3+3 Tracing in Connlver 
A+ CTRACE 

a. contrace 

C+ CD1SPLAT 
0+ /x 


B ■ bl iography 


I BASIC CONNIVER 


U1 Introduction 

Cannivar rs a programming language designed to make easy the 
definition of proce9sea cooperating to solve problems in- the 
realm of Artificial Intelligence, These problems are often 
characterised by unpredictability of data—structure formats and 
flow of cbntrol , since programmers must try to use them to made I 
flexibly arms Ill-defined part of the world. Bach programmer 
wishes to make additions or change* to the data of his model in 3 
way that is as close as possible to what he ii thinking without 
having to translate into seme internal representation. It 3 b 
just as true that be cannot be bathered ul th representations of 
processes and procedures? he would Elks to be able to refer to 
*nvironments he perceives as "here” or “where ccntrol was a 
moment ago, “* without regard to where these environments exist on 
Spipb Internal stack, or whether they can even be referred to 
without advance preparation. This second aspect of A. I, problems 
is especially prominent when procedures are regarded as data 
I 1 ' oe 1 i ef s") , to be monitored and understood as well as executed, 

Ccnniver is a Upp-l|ke language which clears up some of 
these deficiencies in Lisp with two additions; 

Cl? a sya tarn—meintained data base 

(21 the ability to manipulate arbitrary control Environments, 
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Neither of thefts features is nen, Readers Htio are acquainted 
nith predicate calculus or PLANNER wi I i scan recognize the mare 
obvious characteristics of the data base. Those ulth knout edge 
□ f PAL and to some extent the laubda-calculus end Lisp i.S will 

. i 

Already understand Ccrtniver's control structure. 


1*2 Pa ttern-Atcaasible Data 

The data base Is the piece to begin, In some -computer 
applications, "data" means huge arrays of numbers, which it ia 
deeired to store efficiently and crunch cjuicMg: or a group of 
strings stored in uel l-def ihed variables, to be manipulated 1(1 a 
ue]I-defined sequence. In A.I., the process that creates a datue 
does not usually know Mho uants it or what he wants It for. It 
cannot, therefore, store it in a standard variable. Furthermore, 
data are often not numbers but facta , such as H hary is the mot her 
of Cod,“ Theae tacts are usually net 30 much computed as 
-discovered, and they a~o hot usually passed on tD the next stage 
□f the computation. Put merely "wade available" to whomever needs 
thorn, For example, seme procsss may later ask, "Una is the 
mother uf God? 1 * or "Who are the chi ldren of Fiery?" end the feet 
g-i veil oust be acceaa Ib 1 S. 

This 3e achieved by letting facts 0* modet ltd as arbitrary 
non-circular fiat structures, which are accessible vie any 
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combi net 1 on of their components. These data Structures are 
cal lad j temg - and they are just "there" in the dale base,, rather 
than being thought of as properties pointed to by their 
individual atone. Thus, a process may- fr*eeut# 

(ADD 1 DIARY nOTHER-DF GOO)1 

and that 1 tftfn will be pregen t to Other processes that need It. 
(Notlea that Conniver syntax ia that of H.I.T. Lisp, The given 
farm cat I 1 ^ far the application of the function ADD to one quoted 
(unewalmated) argument, namely [dARY nDTHER-OF GCD1-I The effect 
of ADD can be undone with REMOVE, as In 
(REMOVE 1 <MARV MOTfEfi-DF GQU) 1 

which leaves the data base in the stats it was in before the ADD* 
After an ADD. if another process »ishes to access a fact, it 
may do so In sovaral Nags. All of them rest on the notion of 
Specify I ng part of a desired fact and letting th* system find all 
present items which agree in the specified part. This 1» a form 
of associative memory In Which the User le free to 1st any piece 
of an Item be Its key* and 1 all the rest to be what In retrieved* 
The specified and unspecified parts are intermixed in a pa11 era 
which resembles the 1 te« T but has YfluiafcLea Instead of constan±g 
In the parte to be filled In by the armory system* For example, 
the pattern (!>14H0 MOTHER-GF GOD! specifies "mother" and '’God, * 
but has a slot labeled WHO to bs filled lit (i.e,, be assigned 09 
a variable) if there is an item [someone nGTHER-OF GOD) present 
in the data base* The Characters 41 l>" specify that WHO is a 
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variable, the name of the contents of'the slot, not the 

actual contents. 

The most fundamental way to use these patterns is with the 
function FETCH, Which takes a pattern as an argument, and returns 
a possibl I Ft ie.9 .List containing all Heme which mqteh It In the 
sene* described. In bl j example, (FETCH " (!>UH0 HDTHEft-OF COD) > 
returns 

([ rtPGSS IBI LI TIES U >WHG tlDTHER-OF QDO) J 
ftIGNORE 

£*iiEn nrtAFrv nother-cf godj ta <b * +m 

{(UHD flARY)}}}. 

This Mat contains all the Items (her* there is only one) which 
match the pattern, and a yesd deal more besides, [FETCH return* 
a lot of Information which et imat computE anyway? usually no at 
of it Is discarded.} The detailed format of this list will be 


described later 




I r 3 11 


1,3 Co-nnivar Program# 

Usual Iy-, @ Met Of items such as this nil! be processed by 
I on p i ng through- I ta e I nmnnt», lacking for nnn with some desired 
property or doing something to each df than. This is dens by 
using the function TRY-NEftT, which removes the next possibility 
frnin the list and returns it. In the ease of Item possibilities. 
It returns the item and sets the pattern variables as the 
association Met in Its Item possibility directs. If the 
vpr labia P is bound to the list given, (TRY-NEKT PI has the value 
(IHARY rrcn>O-0F GOD! EB 10 ♦ +))J, and the side effect of 
setting variables as the association list HUHO MARYH dictates; 
i. a., It gives the variable UHD the value MARY, (The markers-, Of 
the form {0 {0 . 44}, on the item returned may be ignored for 
non. 1 

ftou Imagine the 1 te*t EMAfiY HOTfCfl-OF GOO I, {RHEA HOTHER-OF 
GOD), and It'S IS MOUHER’-OF GOP) are in the data base, (The idea 
that a creature can have only ona mother is, of course, not built 
into the system,} The fplicumg program nil! print out all these 
mother*: 

(PROG “AUK" (UHO EP (FETCH M1>UH0 MQTHER-DF GOD)})) 

I LOOP E TRY-NEXT P " (RETURN NIL)-) 

(PRINT Ul 10} 

(GO ’LOOP} } 
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Th I a proyrai* i* reminiscent d f a Lisp PRQG h unth some 
rfif farenceo: 

{1} Local variables are declared as auxiliaries e*p [icitly by 
putting the atom ’AUX“ before the bound variable Met for the 
PFIQG, (The fiat and marker could be omitted entirely*J These 
variables are hot automatically bound to NEL. Atoms appearing lift 
the Hat (like UHG) are bound but undesigned. List of the tone 
{atom expression), such as (P (FETCH***)), specify that atom Is 
to be bound to the value of expression.. 

(21 The second argument to TRY-NEXT gives Its value when 
there are no more possibilities* (It must be quoted to avoid 
being evaluated when passed to TItY-NEXT.) 

(3) Tags are preceded by " i ■ to distinguish them from 
ordinary atoms appearing to PROS bodies, This is necessary 
because Cennlver PROG'9 return th® value of the test expression 
irr their bodies* For axjaplt, 

(PRDG "AUX" {WHO (P (FETCH * E S>LIHQ nO?f£R-DF GOD]) I ] 

{TRY-NEXT P '(RETURN NIL)) 

UNO) 

returns the first mother of God it find*, or NIL If there aren + t 
any* 

{A) CO always evaluates its argument* 
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I.4 Contexts 

Sn far. I Have spoken in terms of one data base or uorlrf 
model, In which items can be added and fetched. The major novel 
feature of the Connlver data base is that any number of world 
models, called cortew ta . are allowed. Each may bo manipulated 
entirely Independently.. Theae different state? stay be used to 
model hypothetical uorlds, alternative eases of a proof, 
different board positions in a game, or different times, or all 
of these, 

The user starts with a single, global context, bound to the 
variable CONTEXT, He may change It by executing ADD to store a 
new Item, or BEHOVE to delate an old eng* These changes will 
cause Items actually to appear or disappear from the ''index" 
which implements the associative data base. tSee Chapter II;,] 

A rather different kind of change is achieved if the farm 
tCSETQ CONI (PUSH-CONTEXT CONTEXT* * 

Is evaluated, which iteras a new context as the value of variable 
CONI, (CSETfl i s the Connlver analogue of Lisp's 5ETQ,i The 
result is a nau data base uhoee contents are Initially exactly 
the same as these cf CONTEXT. CONI. is said: to be a sub-con text 
of CONTEXT $ this la asant purely in the sanse that a alack frame 
Of a language processor is a sub-frame of the frame beneath it on 
the Stack, (See Chapter II. Contexts are implemented as stacks 
of “layers,'* which are analogous to stacks of frames,) Although 
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initially DONt is Identical to CONTEXT, arbitrary additions and 
removals may happen to It which have no effect at all! an CONTEXT. 

For BKample, assume that the * theology problem solver* I nave 

been describing has in Its data base (CONTEXT] the item (HARY 

nOTHER-QF GOD! (and that the other moth-ora have been removed], A 

routine might perform the following actiehs, which involve th* 

Specification of a neu religion (or a hereeyH 

(C5ETQ CONI (PUSH-CONTEXT CONTEXT11 
fREDDVE ' (F1ARY NOTHER-OF GOD) CONi] 

(ADD MKDNNIVA NDTHER-0F GOD) CONI] 

Wow CDN1 differs from CONTEXT only in uham it repreeente 3e the 

mother of God, Notice that ADO* REMOVE, and FETCH take optional 

second arguments uhiCh specify which cdntext they apply to. The 

default value of this- argument is the valos of CONTEXT. Now 

(FETCH * £ !>UHCl nOTHER-OF GO0>) has the seme effect as before, but 

(FETCH * \liMW H0THER-0F GOO) CONI I returns 

((*POSStBILlTI ES (!>UH0 nOWER-DF GOD)) 

*IGNORE ' 

(*I TEH I (KQNNIVA nOTHER-OF GDDJ (10 (B , +JT) 

([WHO XONN(VA)]]}. 

I shall uork into a lees sacrilegious example, unich wit I 
serve as a Juetificat ion for Canniver control structure, by 
making the following observation. A common technique in 
Conniving ia to rebind CONTEXT (e.g,, in an “AUX“ Met) to a sub- 
context. This has the effect of making "hypothe t i ca I " all data¬ 
base Changes performed inside the scope of the neu binding. It 
alee means that returning from this scope causes ell those 
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changes to disappear* unless special precaution* arc taken, 

1.5 Defining Canniver Pure lions 

The usual place besides PROG" 5 in which one statement after 
another Is evaluated is inside a function bgdy. 

I mentioned before that contents may be used to model hoard 
positions In a gam. The example I will now pursue la a part of 
a tlc-tac-toe program which has never been completed* For this 
program, I organize the data base as a collect ion of items about 
the squares, ft square is a number from 1 to a player ie one 

of the symbols □ or X, In the initial 1 context* there is an i tern 
of the form (FREE si for al 1 squares, Uhen a player p makes a 
hove in square e, the Its* (HAS p si replaces (FREE si* 

One of the subroutines required in a tlc-tac-toe program Is 
(PCRCEWIN player square]* which is nor -NIL if and only if a 
player can force a Min on the next ttbve of a game by playing In 
souare. It is defined using COEFUN* which is analogous to Lisp's 
DEFUN; 

ICDEFUN F0RCEJ1N (FLAVEH SQUARE] 

"ALJX" I(CONTEXT (PUSH-CONTEXT CONTEXT)! 

(Un P((^POSSIBILITIES) 

IGNORE 

(fiCENERATQR (UINODVES FLAYER)]m 
(ADD 1 H (HAS , FLAYER .SQUARE)! 

(REMOVE ■ F " (FREE T SQUARE) > 

(COftID f(J1AKEI1GVE (OTHER FLAYERI i 
(TRY-NEXT UH NlLTi J|, 
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In English, square is a forced i-l I n for p layer j f player still has 
a winning move after the other makes his boat reply to square. 
Notice that this statement has a hypothetical ("If***"! clause In 
it, which corresponds to the pushing-down of CONTEXT before the 
move to square Is hade. When FORCEIUJN is exited, none of the 
effects of ADD, HEflDYE, or MAKEI1QVE will be visible. 

FCRCEQ1M illustrates several nsu Conriver features. The 
iMcro-oharoctene !" are used to signify skeleton enpansion . 

!" {*» I stnsntarJ Is Ilka ' Itteiewerttsi'v), except that some of the 
elements are evaluated and their values substrtuted Into the 
result, so that it is not EQ to the original "skeleton." Uithln 
a skeleton indicates that the value of a Connlver variable 

is to be substituted. Thus, It PLAYERS end SQUARE-5, !" (HAS 
,PLAYER ,SQUARE) has value EHA5 X 5), Other character* have 
Other uses; see Sect. VIJ.l. 

{flAKErtOVE player! is the main tic-tac-tce player being called 
recursively? FQRCEHIN i* It self a subroutine Of HAKEMUVE, It 
adds to the data base the beat wove player can «ake, (OTHER 
player) is defined as (OTHER X)-Q and (OTHER 0)-X. 
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I,G Goneratora 

The tndSt impart ant feature of FUHLLUtN is the general r 231 i on 
H makes of possibilities lists. The posslbi litres I i gt Utl 
eontfllns a nsH kind of pess I b l F Ity * of type oCENERATOR, whose 
second element la a form, (WINnOVES PLAYER), When TRY-NEXT aoes 
such a thing, it evaluates tbs form, In this case calling the 
function UI&IrtOYES. 

Such a function might do anything. If It just returns, TRY- 
NEXT just goea on to the newt possibi l r ty (If any)- In the usual 
cage, however, the function behevea like a generator , adding neu 
poasibi 1 ities to the list In Its place. Thus, euch a possibility 
"stands far" the "real'" possibilities uhich the function is 
capable nf generating* In a rudimentary sense uhich Hill be 
expanded* the fiat of possibilities is a common1 cat i an channel 
betuaan the generator and the function that called It. 

Vlhat SJ1 fJTlDVES ui ahes to ccnnunicat* is all the winning moves 
lfs PLAYER haa tn the board position In uhich it in called* ff 
there are any, they are simply put into the paasi b i 1 i t i eS list as 
numb Bra. Uhen TiRY-NEKT a a as an element of thia sqrt Iwith no 
flag like *ITErl pr oCENEPATORI * It assumes it is a va 1 ue 
dos sIbI 1 I tu and merely pppa It off and returns it* So. in this 
case* the last line gf FQRCEUIN naans, "return a winning move for 
PLAYER, if any. also NIL," 

The description of generators that la tn com© util introduce 
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and justify Conniver control structure, Before I g i ve It, let fire 

eupmarizo what has been created an far* Sc far, Conniver La an 

ordinary LIsp-Ilke language u I th a ey»tum-M»a nts i nod data Paso, 

This data base- has the Interesting property that it consist* of 

any number of contexts, related in a tree structure, [It night 

lack as if restricting then to be bound Only to bindings of the 

variable CONTEXT Mould callapse this tree into a a tack, of which 

only the top no at context would be impart ant at any ana tire. 

This assumption Mill be shown to be false, 1 

A simple version of the generator (4[tor1QVE$ would look likai 

fCDEFUN WINTOVE5 (PLAYER) 

"AUK" (SQUARE1 PI SQUARES P2 X) 

(CSETQ PI (FETCH 1 (UA$ I,PLAYER l>SQUAflEl)n 
iOUTERLCQP 

(THY-NEXT PI T [ADIEU)I 

ICSETQ P2 (FETCH * (HAS !,PLAYER ^SQUARES))) 
i INNEHLOOP 

(TRY-NEKT P2 + EGD + OUTERLOOP)) 

(COWD ((LE55P SQUARE1 SQUARES') 

CCDND ((CSCTQ X (THtMMN-flQU SQUARE1 SQUARES!) 

(COMO ((PRESENT * (FREE 1,X)> 

(NOTE X)) M I) ) 

(CO MMEFLOCPJ ), 


There are some new fonet lone and notations to be explained 
hero. The new functions are CDND. PRESENT, THIHD-1 N-ROU, NOT£, 
and ADIEU, (LESSP ia a Lisp function, uhich is callable from: 
Conniver.) CDND is the Conniver version af t-isp*s OOND. which 
differs from it only in that a CDND clause, after the test form, 
Ib just like a PRCG; “AUX" variables and statement labels are 
allowed; but these features are not used here. (PRESENT pattern! 
is a system function almost like (TRY-NEXT (FETCH pat tarn)); it 
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r e turns an Item and Beta the pattern variables 1 f there l» Oh* 
present that matches the pattern* THIHD-IN-ROIJ re turns the third 
square in a line with 1 1a arguments, or NIL if they are not 
col I inear* 

Before 1 describe NOTE and ADIEU* uhich allow WJNTlDVES to 
communicate with Its caller through its calling possibilities 
Hot* let me explain the prefix "I*" ueed in the three FETCH 
patterns {including that of PRESENT}* "f.PLAYER" in this program 
matches only the current Conniver value of PLAYER. lit actually 
has a slightly more general meaning^ see Chapter ]V for a 
complete description of this and several other pattern prefixes.} 
The FETCHes in this program, like that of my earlier program for 
printing mothers of God, create possibilities lists tPl and F2) 
of item*, which are used in TRY-NEHT-driven loops* Notice that 
PI and F2 are substantially the same list, except that each sate 
a different variable, and that P2 is re-created wore often than 
Pli Each Isa list of all items corresponding to Squares owned 
by PLAYER*. They arc used tb generate all pairs of squares owned 

f£ 

by PLAYER* IT he LESSP clause of the first CGND is used to 
discard redundant or degenerate pairs. Thi* la an inefficient* 
but clear, wag of doing things.} 

Uhenever UINflOVES has found two coll inear occupied squares 
ui th a free third col l inear square, it must insert this third 
twinning) square in the poss1b 1 IItlee list, This It does with 
NOTEi Uhen all winning moves have been discovered, FI will be 


1.6 20 


Buhausted, and the TOY-NEXT at statement iDUTERLQOP will execute 
(ADIEUK In thin caae + ADIEU merely returns te TRY-NEXT + ulnich 
returns the first NOTEiJ winning squar*. If there are any* 


1.7 Generalised Control Structure 

The type of gene “St or I have described so far is merely an 
odd function which ie capable Df returning zero or many values 
Instead of just one. As such, it Is not very interesting. In 
same cases, also. It is inefficient. It may be, tor example, 
much more expensive to generate poggibi 11 ties then to use them* 
or the expense of generating them may grow as feuer end fewer 
remain^ or the number «sy be Infinite. Another type ef 
difficulty is that ths generation of successive pots I b 1 11 t i ©S may 
depend ort what the calling function did With previous enefl| the 
caller may want to advise the generator as to hew to proceed;. Dr 
it may simply be that the generator has no idea hew many 
possibilities its caller wants. (Notice that FDRCEWIN ie 
interested in only one winning move.3 

What ie neeoad is a way of returning same of ths 
pose I h e 1I11es uhiIe maintaining the generator In swistence for 
further duty >f required. 3 wi I E describe in a moment the AU- 
REVOIfi feature that allows this to happen, but first the question 
must bs answered* what Is being maintained in existence? In this 
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c3be p wrist 1 a being saved ts a description of the “process" 
embodied by the generator, This description must include the 
values and name* Of the variables bound there, the body of the 
generator and uhere control Mae be tor* it returned, and Mho H 
returned to. All Of this information is saved in the frame of 
the generator. This frame ie created when the generator is 
called (as it is for every function)* Normally, frames are iost 
when control returns from them: they are garbage-collected along 
with their bound variables, including any bindings of CCMTE^T 
they may have. This Is why I said the contest tree might look 
like a stack. It is also why, in most programming languages, 
frames are stored on a stack {“frame 11 originalTy meant "section 
Of stack") , and always go away when they are papped off. 

In Conniver, however, frames are accessible data structures 
which can be protected from garbage collection merely by being 
pointed to, Protecting a frame in this way means that its 
bindings must remain in potential existence, since they are 
always capable of being resurrected, The ways In which such 
frares can be used will be described. For now, notice that one 
implication of this design is that Cpnniver control and context 
structures Bust be at ieast as cample* as trees fCf, sect* [1.13, 

One thing that can be done with frames is to maKe tags,, which 
can be GDne to like ataas; however* GCing to a tag restores Sts 
bindings, no matter when they W*r* treated. So* a generator can 
keep itself in existence by generating a kind of tag as a 
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possibility. This tan stands for the further ocseibi 11 ties it 
dan generate the May it* Original generator stood for all Its 
pass! bi i I t i ear Sudh a tag Is called an *AU-REVG]R possibility, 
and la generated by railing (AU-REVQIRK This form behaves like 
(ADIEU), but* by saving a tag to its cur frame h can potentially 
return "again, 1 ' 1 Inside the generator* caueing It to note new 
values, arid repeat the AJU-REVOIR or do an ADIEU. 

As an swamp I e + carslder the following verelan of Ul NFlQVES, 

which returns one winning move- at a time; 

tCDEFUN 141NH0VES (PLAYER) 

"AUX* (SQUARE! PI 5QUARE2 P2 X) 

(CSETQ PI (FETCH (HAS !.PLAYER 5>SQUARE1! H 
:0UTERL0GP 

{TRY-NEXT PI T lADIEUn 

(CSETQ P2 (FETCH * I HAS UPLAYER !>S0UARE2>H 
:INNERLQDP 

(TRY-NEXT P2 1 (CD ' OUTERLDDPJ 1 

(COND (fLESSP SQUARE! SDUAHE2J 

fCQND t (CSETQ X (THIRCMH-ROM SQUARE! SQUARES! ! 

(CDND ((PRESENT * (FREE I.XH 
(NOTE X! 

CAU-REVQIRi) )) }) ) 

(GD *INNERLODP! > 

The only difference >i the introduction of (AU-REvOIRl 
fo 1 I outing (NOTE XI. CThi a could have been abbreviated (AU-REVD1R 
X) . 3 however* now a calf to UINNDYES generates just two 
posei hi I 1 t i ea: a winning move and a teg to the end of the AU- 
REVD1R. 


If the tag le ever GOne to (by TRY-NEXT the aecond time it 
tries to pop off 9 winning move}. AU-REVOIR ul I I do a return 1 q 
L tl W1DYE5 and execution will proceed with (CO ' If&lERLODP) . The 
effect an TRY-NEXT will be that it will magically come up with 
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another 145rising move and tag. Only when all winning roves 
have been generated can UINffOVES do an ADIEU, uhlch leaves the 
posh ibllities list empty and causes TRY-NEXT tb return its second 
argument* 

These two examples dp not exhaust the ways In which a 
generator may Interact with a possibilities list. For 
sophisticated problems, it ui I I almost certainly be necessary for 
generators to inspect the FOSS303LITIES bound jn the frame of 
TRY-NEXT* filter some of them out, add properties to them that 
the program looking at them should .-Know about + or even take 
control of their generation by setting empty the FOSSIBILTT[E$ 
bound in the frame of the upper TRY-NEXT and itself calling TRY— 
ICXT on each of the poss I h I I i t i es, in order to accomplish ap-me 
particularly complicated filtering. The functions GET- 
PDSSI BI LI TIES and $ET-PDSSIBILETE£S enable a generator to access 
this binding cf the list* Clearly, In order for a user + s program 
to- edit a possibilities list, he must koDU the formats of the 
various types of possibilities; these are given in the na*t 
chapter , Communication the other wag, from the user of the 
generated possibilities, is made passible by an optional message 
argument to THY-NEXT that It sends to the generator, which Is 
returned* in the generator's activation, as the value cf AU- 
REVDIH+ All of these features are described in detail in the 

appendix (Sect, vn*l,S). 
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It HAIRY CONTROL STRUCTURE 

Chapter I has demonstrated that the- control structures 
nscaisery to support things like generators are of a sort which 
are iHsgal in moat languages- Just hop illegal Hill now be made 
clear. 


11.1 Uhat a Frame Es 

II *1.1 How to Be a Programs mg Language 

If you were to simulate a PROG, thors arc two things you 
would have to keep track oft which fin* of the program you were 
working ons and what the current values of its ''ALPS" variables 
uers. If this PRCC evaluated another one, you uculd have to 
stop what you u*ro doing, and do something similar to the new 
one. 

In evaluating the neu one. However, there are two new things 
to remember: which line of the old program to UDrk on when you 
gat back to It, and what the values of the ’’flUJ'l” variables of the 
old program arei 
{RflDG 31 AUK" (EX &I (Y I0H 

tpROG "aux* tix san 

(PUPS X YH 
{PLUS X Y)). 
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The inner PfiOG require* the values of the outer X and ¥ for two 
reasons: it hunt be able to refer to them free la* It floe* here 
with Y) ■ and must be able to restore their values when St returns 
(as St does here far X) , Thus, the inner sun of thrs example has 
value SGf the outer, and the whole expression* IS. 

A language interpreter has need of the sane information.* It 
stores ft in an object called a "fr.* with four alotsE 

(If SVaRS (Bound VARiableSI: a pairing of $ location with ' 
each bound war Labi* name* 

(Z) 3 VARS (Internal VARiablcSl: 9 specification of uhitt the 
interpreter is now doing* (For example, which line of a FROG it 
ie working on, or which argument of a PLUS it is evaluating. J 

(33 ALINK (Access LINK): the fr whose BYARS and AL3MK are to 
ha searched for any free variables that are not bound in this 
fr"s BVARS. 

(4) CL3MK [Control LINK): the fr to which control is to 
return whan It leaves this ans. The I VARS of CLINK specify how 
the running of that fr 1 j to proceed. 

We will represent a fr by a box, with bound variables 
Indicated beside It, whose CL[!V< is an arrow pointing to another 
fr* and whose ALINK is a dotted arrow pointing to yet another 
one. (Fig* 1(a)*) If ALINK(fr) - CLINK(fr)* a double arrow will 
be used. (Our terminology and notation are a simplified version 
bf that of Bobrow and Wegbrait £19723 .) 


CLINK 



ALINK 


(foo BAR) 
BVARS 


A. A fr. 



(X 5) (Y 10) 


{X 50) 


B TYPICAL CASE 


FIGURE 1 
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The control structure during execution of tne PROG'a given before 
i s shown ir Fip. 1(b)* 

It might be arkstl whether anything more complicated than Fig* 
lib) is necessary or possible, in some languages, it is not* 

PL/I * for example, allows this- structure and no other* FORTRAN 
Jmpoees the additional restriction that no two fr's in a chain of 
fr’s be Created by the same function;, hence. Fig. 1 tb) >s hot 
•v«n possible in FORTRAN* 

However T other structures are imaginable* 


EX 100) 


fX 10) 



(X 100) 



A. 


e. 


TRY-NEXT, TRY—NEXT^ 




c. 


D. 


FIGURE 2 
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Figure 2. 

In Fig. 2(a> + X haa value 100 rather than 10 in fr A. The 
same I a true for fr 6 of Fig, £Sb), Fig, 2 la) la a Segal 
structure in At got, MAC Lisp, and Liac 1,5. tin the last, 
however , access fr*s and control fr" a are dif ferent kinds of 
entities.} Fig, 2 (bi is legal in Lisp 1.5 only. (These 
structures arise from the application of "FUNAHG"s"j see belou, 
sect. 1.2,3.} The other ease* are unusual. Fig, 2(c) shone the 
typical situation of a generator revived after an AU-REVQIft, Ho 
One has yet thought of 3 uts for Fig. 2(d)* 

These abstract Objects may be implemented in various uay® + 

In FCHTFtAM, a fr 1 • not clearly d I st ingul Shed from a function* in 
addition, each function has 3t ALINK only the COWON area* In 
most language f r's are implemented as stack, frames, *- h i oh can 
be plied up as Fi^* 1(b)* Ones such a trams return® control to 
its caller, that frame ia no longer referencaable. This 
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condition rules out the Structures of Fig, 21b) and (cl, 
Li op 1.5, th* 0VARS and ALtMC of a fr are preserved after 
popped off, BD Fig, 2Eb) is possible.) 



(In 

It i s 


FIGURE 3 

is ambiguous, in that the two subfr's of C may be meant to be 
chrona logical I y exclusive or not. In the former case, A and B 
may share stack space; Otherwise, as in Fig. 2(a) t they may not. 
It is clear uhst th* chr brio I ogi ca I i nterpratat 1 on of Fig, 3 ) 5 t 
C called A, A returned, then C called B, What is the other 
Interpretation? Simply that A stand* ready to begin execution 
egsin or supply its bound variables" values (as in Fig, 2fb)>, 

[Ue leave out a notation for IVAR3 In fr's of Fig. 3 and 
elsewhere, to make things simpler. It is clear that A and B must 
90* different IVAFt$ for t, so that different things may happen 
When they return, (There is nothing to prevent A from returning 
eeveral tines,) Leaving out IVARS alloug us to be vague about 
exact Iy uhich point in the execution of a fr us intendt remember 
onig that each CLINtf must specify it* superior's IVaRS.] 
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IE. 1.2 Connlver Control Structure 

In Connlvir^ a fr 15 an Internal list structure which 
cficiifl** BVARS, 3VAR5, ALEMK, CLINK!, and EKP, the last being the 
t&rnf uhose evaluation lad to the creation cf the f r„ Whenever a 
non-atomic expression ia CEVALuated t a neu fr is created. (The 
only exception is FEXPft applications* Lisp EXFK's, SU0fl‘e p etc. 
da pet Conniver fir's,} 

Cdnniver fr"e are used as internal interpreter structure* 
U»«*i pants of other tr's} a* described* but they are also 
accessible to users as pu-ts of frames, tags, closures, and -;rAU - 
REVQER possibilities. These concepts me 11 be explained. 


11 * 1 > 2,1 Frames 

A frame Is a structure cf the form [*FRAnE frl. This is the 
external representation of an unadorned fr. It may be used in 
tun basic ways* for relative evaluation or continuation. 
Evaluation of an expr*sftion relative to a frame is a «ay of 
creating It* frame mi th an abnormal access 1 ink (cf. Fig. 2fal 
and lb) J t namely the fr of the given frame* (Another may to do 
this Is with closu>-ea ; be lorn, I Relative evaluation la done 
tilth the function tCEVAL expression frame). 
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Continuation of a frame ig returning control to it as 
directed by the I VARS of He fr, This is done by {CONTINUE 
frame)-. To CONTINUE from a frame's control link, wee (EXIT value 
frame) + which- causes frame t* return with value, When no frame 
value ie given* EXIT exit? from the most Immediately enclosing 
C0fd T PROG, CEXPR* en method body. RETURN bypasses CQND, &□ is 
Often more Convenient {See sect, Vl 1 + 1*EH 

Fratnoe are Created by the function (FRANE) , which returns the 
frame of Its caller. {More precise and complete da flni tierce of 
this and ether functions are given in the appendix, sect* 

VII,1.4.) 

For example, after the execution of 

IPRCG "ALiX" ({X 5fl)l 

(CSETQ GUP& IFRAME)) 

(PfilNT ‘FOOJ), 

global variable GLOB ui i 3 be hound to the frame of the PROG, 
rihlfi. ie because FRAME returns a frame with the AL] NJf when it is 
called ae its fr.) 

Now (CEVAL *X GLOB) has value SB, {CONTINUE GLOB) causes FDD 
to be printed again. 

Other functions can be used to manipulate Conniver frames, 

EACCESS frame) and (CONTROL frame) return the frames for th* 

ALINX anef CLINK of frame* S fr, respectively. 3ETACCESS arid 
SETCONTROL reflet the appropriate I inks of frames* For exampl e, 
tSETCDNTRQL A A) causes the state Of affairs shown in Fig. Z(dl. 
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11 a*2.2 Tags 

Another- nay to use fr’s is to create and use f-r's associated 
uitn a label tad section of a PftQG, function body, or- CQNO clause* 
Such an object Is called a tag, and la cf form (*TAG label fr>* 
uhsra fr re a frame whose IVARS instruct any CQNTINUEr to begin 
execution at that labelled piece of body, 

Such a teg is created using the function (TAG atom)* which 
aearches the current body for a tag ef the form "Tatum"* If It 
is net found, the CLINK of the current fr is followed, and the 
process repeated. 

Tags may be used In any context that allows franee, including 
CEVAL and CONTINUE. A synonym for CONTINUE with a tag argument 
is GO. If GD has an atomic argument atom, it is equivalent to 
(GO (TAG atom!J, 

Fgr swamp I a , the fp| lowing toy program prints Put F0O SAP?: 
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fCDCFUN PRINTFOOBAR (1 "AUK" {PLACEI 
(CUND UCSETQ PLACE KZ0U1E> > 

{CO PLACE )} II 

(CDEFUN ZOUIE U 
(PRENT *FOQI 

(RETURN (TAG T PRIMTBAR)1 
iPRINTBAR 

(PRIN1 ""BAR) 

NIL) 

{PRINTFOOBAR* 

and returns NIL* (Note that CD always evaluates its argument, 
and expecta an atan Dr a tag. I 

11.1.2,3 Cla-eUres 

Functions and other "procedural" objects (ssb below) nay b# 
associated with fr*s to form c I- os urea , data of the form (^CLOSURE 
function fr> . A closure behaves like Its function* except that 
its frame Hill have ALINKwfr rather than AL [ Nli-CL) Nl£. 

C one sequent I y, Its free variables will be looked up using fr* 

Thie may give rise to a structure of form Fly, ZEfl* or (fa) * 

Closures are generated dy (CLOSURE function), which returns 
the closure of function In the fr of (FRAHEI. Since these 
objects may bo returned or assigned to free variables, they may 
point to ax1 tad fr* a, as in Pig, 2(b) < 

For example* the fallowing function of X returns e function 


which adds X ta anything; 
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tCDEFUN PLUBK «K> 

(CLOSURE MCLATIEPA {VI (PLUS X V) JIJ. 

Then, |f F - EPLU5X 51, ICALL F 41 * Uhen F Ib called, ¥ Is 
bound to 4. 


FIgors 4, 

Closures can be weed In any context a a though tney uses the 
f rai»ee Of the In fr'fl, Closures of (nethadB 3rs described belOP, 
Sect. U,2, 

11,2 Methods 

This flexible control structure CSh be used to provide on 
Intimate aeeoelallon betueen a tret of problem-investigating 
Connlver processes and a tree of contexts. In particular, 
procedures can be Invoked by the addition or removal of an Item 
tn a context* by virtue of being linked to a pet tern that matches 
the item. Such data base - sensltive procedures are called 


fflq thgdsu af *ye* il.Tjadd.ed LL-removed , or | {-needed . 









fx 5) 



figure 4 
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11.2.1 I f-atfdeds and If-removedS 

Khan an Item is added Sremoved), any present if-addeds (If- 

removeda) whose pattern# match the Item are 1 nvgkgd . L|h#r> a 

method la invoked, 3 new train is Created for it and the result 

of the match with i ta pattern {see Ch-apt. IV) is used to create 

i to initial variable bindings. Elf the natch falls, the method 

ia„ of course, not invoked.) Auxiliary variables may be bound by 

including an H AUX" dsclarstion at the beginning of the method 

body. Execution begins at the front of the i f-added'S (if- 

removed' 1 a) body, right after the H AUX“ if there is oh*. For 

examp Ie, the {anonymous) method 

(IF-AODED NIL {HAS !>UH0 [^SQUARE) 

{{REMOVE PfFflEE .SQUARE)))) 

with name NJL. pattern EHAS !>UH3 I>SQUARE), and body E {REMOVE 
!(FREE .SQUARE))), automat ical 1 y erases [FREE square) when I t is 
asserted that EKA5 someone square), Its use as a bookkeeper 
eouid save a H«e in the function FQRCEUEN (sect, 1.51» 

A method is Itself a data-type stored in the context- 
structured data base, so it mag be present only in the contexts 
the user specifies. Hethods are ADOed end REflUVEd >ub t like 
items, end like items, jndexed in th* data base by their patterns 
(see sect. III. 1.2.2). The function 1F-ADQED (IF-REMOVED) 
creates an i f-added (if-remeved) method ui th the pattern given by 
it# first argument and the body given by the rest of them* Th* 
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above method can be but in the current context by 

[REALIZE ( IF-ADDED (HAS !>LH0 !>SQUAFlEl 
fflEHPVE !"[FREE T SQUARE3! }} 

and removed by UNREALIZing an object Efl ±£ the g p g added., 

This EQ-r**trict I on Wean* that So attempt by a user to re¬ 
read and ADD a file fill I Of such anonymous methods Isay, after 
editing B bug out of one! ui M put equivalent copies of all of 
them In the data base tuica, air to- be called tuice uhen needed* 
To avoid this problem* an if-added tor If-removsdJ can be 
associated with an atomic name* thus 

(ADD (1F-ADCE0 HAS-FREE (HAS 's-UHO 'l>5QUAREI 
(BEHOVE J" (FREE .SQUARED I) 

causes the atom HAS-FREE to be associated with the method (under 
the indicator DATUD}* and to be passed around by the Indenting 
routines. Executing the above expression a second time ui I J non 
causa the method to be re-sona true ted (in case It had bugs in its 
previous incarnation!, and associated ulth HAS-FREE* but not to 
be rc- indexed, because the atom is equivalent to the method in 
the eyes of the system* and therefor* already present. In fact*. 
If IIF^ADOEQ HAS-FFEE* + +) has been executed, 

(ADD "HA5-FREE1 

Is equivalent to the ACO above (cf* sect. I El.41. 
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31.2-2 Ef-needede 

The third method df date base-control structure interaction 
is by uae of If-needed methods , which cooperate a* intimately 
tilth FETCH as 5 f-added* and if-ramoved 0 with ADD and REMOVE. 

Often there is a class of data items which are to ce regarded as 
“present* in a context an the basis af some procedural criterion 
rather than oy virtue of actuary being there and F£TC3HabEe.. An 
If-no tided can be used td associate ggtph a procedure with the 
pattern of a typical Item of the class* Any if-neededs present 
In a context uiII be found by FETCH* if their patterns match its 
pattern argument, and stuck at the end of its possibilities list. 
They are invoked by TRY-NEXT when it comes to them in the same 
uay ADD and RE10VE invoke their methods! the result of a 
successful match Can all St; see Dhiipt. IV*) will be present In 
the possibilities list Of the method; if will be used to Start 
the bound variables Of the method's frame, which are augmented by 
any ’“AUX 11 variables that aay be around* Execution begins in the 
method, which behaves like a generator function (see sect. 31 
with respect to the possibilities list TRY-NEXT is working on* 

With In an if-needed method, the function INSTANCE of no 
arguments returns an Instantiation of the wethocTs pattern* nl-th 
all variables given their current values. Then (NOTE {INSTANCE!) 
tor simply [NO-TEH causes such a note poa fljbi lj tjy to be appended 
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to POSSIBILITIES* Since TFY-flEXT has the same effect an A note 

3B on an Itei possibility* MOTS simulates the presence of that 

Instance 33 an i ten In the currant con tew t, ADIEU end AJU-fiEVOlR 

viork In the saie way as before. 

The patterns of 1f^neededs may use match characters which are 

not usually used eiBerbers. This is because if-needed patterns 

gre r.atched against FETCH-patterns that may include other 

variableuhereaa all other patterns are matched ayeinrt 

COrtotafit Hat atructorea. The aast important SMCh apeelal prefix 

la "I*", variables prefixed which match only with expreealona 

ul th variables when the method is entered, Uhen the function 

INSTANCE Is pal ledt the variables prefixed with ul II hpvo 

been assigned by execution of the body Of the method* and their 

vploeo m 1 M be trs«sm I ttsd back to the variables that they 

matched In the FETCH-pattern, 

For example, to express the Idea that all dw3rve* Pre 

vicious, in such 3 way as to Insure that FETCH finds aM dwarves 

when It I coke fbr vlbibus per boss* one (night execute 

(ADD (IF-NEEDED VD (VICIOUS UXI 

"AUK" UP (FETCH T (EJUARF |>XJ)H 
;LDQP riRV-NEKT P * I ADIEU)) 

(AU-REYOIR (INSTANCE)) 

150 + LOOP) II 

VP will be Invoked when it is found by a call like (FETCH 
+ (VICIOUS 3>VIJ, l*e,, eo attempt to generate vicious croaturw. 
It uculd not be Invoked by e cell like (FETCH MVldEJUS LYNDON)), 
because F*X will not match a constant like LYNDPM. Thia method 
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notes one vicious duarf each t iwo TWV-fJEXT in called* (The 
matcner is exp I a i ned i n detail in Sect, IV*) 

I! *2*3 Closures of riftthods 

PIGt^OCts nay have claeurBS just as functions do, and these, 
toc f can be added to the data-base. If SUCH 3 method is 1 nv&kect 
bv 3 data-base charge, central mil be in a procedure with ah 
access link that differs tram the It of Its collar (like functional 
arguments rh Lisp)* This ra Isas the possibility af a process in 
an eld any ironmeiit being awakened by the addition of an item tc 
its content, or the removal of One from it* In tact, the 
function HANG can bring exactly this state af affaire about* 

(HANG Is hot a Conniver prJnitlve.1 (HANG release expreaston) 
evaluates expression (typically a transfer or return), but only 
after AODing a method closure that inplements a test for the 
release condition* This condition is of the farm UF-ADKID 
pattern) or IIF-REHDVE0 pattern)* If an Item matching pattern is 
ever added (cr removed, as the case may be), HANG returns as its 
value the frame of the process uhich uas interrupted while adding 
(□r removing) the I tern, with the side effect af assigning thS 
variables of the pattern. 

For example. 

ICSETQ FI 

CHANG '(JF^AOOED (HIM | s*PLAYER) ) 

T [CD 1 FOO))) 
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gets to iFDO, but execution Mill resume with a return; fro- HANG 

If anyone add a XUTEN someone J to the data base. and FLAYER will 

have gotten value someone in the frame Fi. 

HANG can be defined as 

ICDEFUN HAND (RELEASE EXPRESSIONS 
"AUX" (HANGFftArC) 
iCSETQ HANGFRAHE IFRAHE)) 

{REALIZE {CLOSURE 

{CEVAL, ICONS (CAR RELEASE) 

(CONS ICAOR RELEASE! 
p I (EXIT SFRArlES 

HANGFRAPEI )))))) 

ICEYAL EXPRESSION (CONTROL)) I 

0y adding the CLOSURE of the method, the HANG is assuredl of the 
continued existence of Its activation. When the pattern i s seen, 
the method immediately causes the HANG to return for a second 
time (i,e +l have i ta frame be exited), this time with value 
■SFfiAnEJ + which will be the frame of the method closured 
activation* The method EXIT® from the correct frame because it 
looks u.d the value of the variable HANGFRAHE by searching up the 
access chain {gee sect. 11*1), which point® off to the frame of 
the HANG In which it was closed. Notice that, having added to 
the current context the closure that daee these marvelous things, 
HANu CEVALuatea EXPRESSION in lte (HANG'S) Control frame f the 
frame Of i te caller, which ie what the user presumably intended* 
HANG thus exploits the fact that every frame has iyg superior 
frames it points to, an access fra he used for free variable 
evaluation and atom tag searching, and a control super-fra-e that 
control la expected! to return to. (See eect* II. 1) 




II-2.3 ab 


The utility of mot hod closures same-uhat reduced by the 
fact that it is dangerous to ADD closures of nathpds containing 
hi ndlings of CONTEXT ♦ This is explained in sect. Ml. 1.2.2. 

11,3 Generators 

The basic operation of generators Mas explained In Sect. [ as 
an illustration of Connlver control structure* Since we have 
explained sore of it new, it is worthwhile to describe in detail 
how generators do what they do. 

A generator 1® any process which conmunlddtes with another 
process through a possibilities list, The Fist of possibilities 
is a communication charms! which most be set up before the 
generator I ® cal led, As we have inn, the generator Is 
associated with that particular Fiat by being found as a 
^GENERATOR or *T1ETHDD possibility in It- Once the function or 
bat hod is called*. It behaves like any other, except that the 
value It might RETURN Is Ignored; all ile Important values are 
to be deposited in the list* a* the data the poeniPlMty "stood 
for'* to the THV-NEXT+ This means that, unlike most functions* 
generators may return zero Dr more values, instead of exactly 
one* 

The mechanics of this are simple* While it is running, a 
generator can see an invisible variable bound tg the rest Of the 
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posS i to U i t i eg lint* starting from where it was found. MOTE, 
ADIEU, and AU-REV01R put new poseibi I i t iea ]nto thi* part of the 
list, In the order in which they are called. AJ-HE V'D[P alec 
leaves en tvALJ^REVOIR possibility, which ie I ike a tag (sect, 

VLI -1. BJ * 

The real trick is In TFY-NEXT. When it finds an AU-FEYDJR 
frame in a possibilities Mat I while it is chewing on the Hat 
after the generator has returned), it replacas the control link, 
in the top frame of the generator structure to point to the nsu 
TRY-NEXT, and just EXITS the AU-HEV0IR frams* This is how 
Structures of the form of Fig. 2(c) come about, Centre I stays In 
the generator on its second round, with all free variables as 
before, untU it is reedy to return again, when it u|H return to 
the new TRY-NEXT, and ultimately to the caller of that TRY-NEXT, 

A generator nay return anything as a possibility* However, 
there may be special types it wants to use, either one of the 
system-tie fined types, or something the user has made up* These 
uHl have format ftype-atom ...I. The systew-defined types are 
ttITErc, METHOD, ^GENERATOR, rtAU-REVQIR, *NQTE, These are 
explained In detail In Sect, VII, 1.3, 
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I 1.4 App I i ca x ] one of Control structure 

This control structure i-g. intended ts tie man i pul able by the 
uaer. HANG, far swample H is written In Connl^er, not Lisp* In 
this section 1 give two quick examples af the kind of 
menipuI a tion s that nay be done easily with Conniving control 
structure. 

II r A,1 Back trackimg 

The backtracking control structure- primitives of Planner can be 
written fairly simply inConmiver as foil oust 

IC5ETQ FA I LURE-STACK! MIL) 

(CUEFUN FAIL {) "AUK" IT1> 

ECUND ((NULL FAILURE-STACK) [PRINT ’FAILED) (GO EAR-1H) 

(CSETQ T1 (CAR FAILURE-STACK)) 

ICSETQ FA I LURE-STACK ICDR FAILURE-STACK)) 

(GO ID > 

(EAR-1 Is explained under "Using Conn i van* bsFou: (GO EAR-1) 
yeta a program to the top level). This version of Planner 
maintains a Fist FAILURE-STAfSC of environments to fail back t-O. 
The list is taken apart by FAIL, which peps off the newt element 
and GCtia to ■ t ■ The list is built by FAIL5ET; 

(CDEFUM FAILSET (?) 

(CSETQ FAILURE-STACK (CONS (TAG T) FAILURE-STACK)) ) 
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Mote that eince FAILURE-STACK is an ordinary Connivan variable, 

there may be local bindings of It, hence a con-plan a true tore of 

fa [lure etacka bound at different levels, 

ICDEFUN GOAL (PATTERNI "AUX" HOATA {FETCH PATTERNI)) 
tGOALF 

(FA.ILSET 'GOALFI 

(TflV-NEXT OAT A ’ IPHGG (CSETQ FAILURE-STACK 

(CGft FA3 LURE-STACK)} 

IFAILHJ ) 


This varginn of GOAL obeys DonnJver conventions for data baas 
search, pattern format, etc,, but behavet Hike the Planner 
version In that it respond# to a failure by TRVIng-the-NEXT 
matching datum unless there aren't any, In which can* It 
continues the failure* 


Clear |y h the type of generator iie are describing does net 
work uith AU--REVQIR, Instead, y» *ust cal l SUCCEED explicitly to 


re turn* 


(CDEFUM SUCCEED H 

(ADIEU (INSTANCE)> ). 


and generation of more than one Instance is done by failing back 
to failpoints within the body of the If-needed method. 

The two regaining functions simulate ASSERT and ERASE in that 
their offsets are undone on failure! 


fCDEFUN ASSERT (SKELETON) 
(FAILSET 'ASSERTF) 
(RETURN (ADD SKELETON)) 
lASSERTF 

(KILL SKELETON) 

(FAIL) I 
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ICOEFUN ERASE (SKELETON] 

(FAlUSET ’ERASEF) 

[RETUHN (REMOVE SKELETON II 
iERASEF 

(INSERT SKELETON! 

(FAIL] J 

KILL and INSERT are versions of REjMDVE and ADD which dio not 
nearch. for and invoke i f-reenved Dr 1 f-added methods! here they 
are used to undo the effect of ASSERT and ERASE before failure is 
a I lowed to propagate- 
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It 1 b just as easy to create various types of my I t'l processing 
In Connlver, This co*es In handy building goat trees,, for 
example. The easy way to do this Is Often just to throw tags and 
frames *round T but you may prefer a more rigid format* The 
fallowing little number treats all processes as atoms with a tag 
under thg Indicator PROCESS which indicates where control Is to 
resume to continue execution of that process* The atoa CURPROC 
always has one such a ten as its value; 

(CSETQ CUHFRQC IGEN5YM] I 

Processes are created In association with a function of nc 

arguments by the function CHEATEi 

(CDEFUN CREATE (FUNGI p AUK 11 UNEUPROC (GENSYM) H 
(FUTPfiDP fCUPftDC (TAG ’APPLY! ‘PROCESS! 

(RETURN NEUPROC) 

:APPLY 

(CALL FUNGI 

(CERFT PROCESS TRIED TO RETURN] I 
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Processes so created may bp resumed at any ti*e with the 

following function: 

(COEFUNi RESlttE 1PRQCJ 

(PUTFROP CURFROC <1A C 'RESUME! *PROCESS) 
tCSETQ CURPRCC PRDC! 

(GO {GET PRDC 'PROCESS!! 

tRESUrtK 

Processes never return tthat would generate ao error, as in the 
!aet fin* Of OREATE} + but resume each other back and forth as 
they wish. To do this, they must know each Other's names. The 
simple echeae shown here doesn't -explicitly allow for that kind 
of communication, but it is not hard to sec how REEUflE* for 
ewampie, Bight be redefined go as to return the name of the 
process that ultimately r* B umes the process that called It. 

Tc destroy a process. execute HREMPROP process-atom 
'PROCESS), It will then be garbage-collected* 
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III HAjflV DATA STRUCTURE 

The basic features Of the Cancriver data base are Its context 
and Indesj fixation . They a! leu the user to create net# 
□ f data which are fetched I e by pattern, have property 
assaciat i one, and exist in different ccnfigurations* 

Until the discussion of isp i ementat i or in Sect.. 3 of this 
chapter, the right uay to think about contexts i s as a tree of 
data bases. Anything! that is added (including properties; see 
sect* 2 J to a given context is immediately present in It and all 
Its daughters, and u|| 1 be automatically preaant in all new 
daughters that are sprouted from it using PUSH-CONTEXT, Nouevar t 
the effect is completely invisible in its super-contexts. 

Exactly the sate applies to removal of data tor properties); 

Hhateve-r was removed is gone in sub-contexts* still around in 3li 
Super-contexts that used to contain it* The mechanism for all 
this will be explained in sect* 

In Chapter I, the data baee was thought of as containing 
I tem 4, arbitrary lists that were present dr absent in each 
context* Such items are implemented as types of data, called 
i tern data, which can be referred to, as we have seen, by 
patterns* In this Chapter,, up h1 I I look at hew to refer to I tem* 
by pointers to their data, and thus Introduce the concept of 
manipulating a datum. 

A datum is a system-maintained entity, which has 
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characteristics Which depend oh its type, 
present or absent In any given content, 
tar include Item data and three hinds of 
I pJgHflfa I e data, uhidh appellation refers 
directed nay of accessing the*, I nl I I 
of the data ind#w is ter (sect* 111*1*21. 


and which la either 
The data ite have seen so 
method* these types are 
to the peculiar pattern- 
return to considerat ion 


II1.1 Types of Data 
111,1*1 Objects 

A mere primitive hind of datum hae the same behavior with 
respect to contexts, but has no pattern to be referenced by. It 
Is accessible, like any Lisp structure, by a pointer to it* This 
19 the object* 

llany people are completely nystHled by the notion pf pn 
object datum, since they prefer to think of a data base aa a set 
of known assertions* Ths nost simple way they can think of to 
access it is to ash something like [PRESENT '{BLOCK AJ1 1 which 
checks whether A le a hEaekj or [FETCH *{BLOCK l>K)| t which gate 
a possibilities list of things currently believed to be blocks. 

However, this kind of a data base is a recent development in 
A. I. A more primitive kind just asalyns various symbols as 
properties of oth*r symbols, Thl* type is Sometime* simpler and 
mors efficient to use* The first Step toward making this kind: of 




I 11.1,1 4S 


data baas context-dopcndBnt would be to invent a " symbol H which 
Is "present" only some o f the time. This I-a pant of the concept 
of object. 

For example, 3 vision program, as it reconstructs a visual 

scene from a vidissector image, must consider more than one set 

of possible real-world object#, and decide what 3# really there 

on the basis of which is (Host consistent with the evidence* Tfiie 

world might be modelled a# a list of Gonniver objects, only some 

of which are present In any conlent* Thy*, an object proposer 

•night, summar ice It* conclusions by adding a new data object to 

the list ROSSIBLE-THING5: 

1CBET0 PUSSt&LE-THINGS 

ICONS tCSETQ NEW-TH1NG (OBJECT > (R4 RS R9>J P 

POSSIBLE-THINGS) j. 

This form Creates a possible object, MCU-GEl JECT , considered to 
consist of regions 4, 5 + and 9, (A realistic data structure 
would undoubtedly have to contain more information*) This object 
looks like (^OBJECT IR4 R5 RSU* and has struc ture (R4 RS R3) * 
which the system ignores. New Object i are. Of course, absent in 
at I contexts* 

To make this datum present in the current context, one 
executes (REALIZE NDJ-THlNGi [ to make it absent, he executes 
TUWEALIZE NELJ-TMINGJ, The predicats REAL returns its argument 
If It is present, or MIL If It re absent; UNREAL, the opposite. 

To Illustrate the use of these primitives, imagine a data 
Structure for tic-tec-toe as follows- Let XS he a Lisp array of 
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9 date objects like that above, such that (MS n) is the X In the 
square m lei OS be a aiwiiar array of 0 object 9, Ua th this data 
structure, the predicate [FREE square) can be defined thuei 
(COEFUN FREE (SQUARE! 

(NOT (DR {REAL (XS SQUARE)J (REAL (0$ SQUARE) )H ) 

To put an M In square S {the center), for exerts lie, execute 
(REALIZE IXS EH 

If this is dene rn a particular context, the beard will 'have an 
X in the center" in that context and all contents sprouted from 
it, By resetting or rebinding CONTEXT to a hraher point in the 
branch, the a X" modelled at (XS SI can be matte to "vanish, 11 as 
{MS SI reverts to absence- 

This simple Introduction to objects leaves them rather 
uninteresting, since they have exactly one context-dependent 
property [presence Dr absence) and a con text-i ndepandent 
structure* Jn fact, the meet intEresting usee of objects involve 
More general propSrties, which are discussed in Sect, 111,2, 

111,1.2 Indexable Data 

An object behaves like any normal Lisp structure* You us* it 
by having a pointer to lt T to uhlch functions and predicates are 
applied. The only difference Is that Its properties depend upon 
the current ConnIvor context- 

Another class of date have the seme properties as objects; 
givsh a pointer to cne, exactly the sans operations {REALIZat i on t 



in, 1*2 SB 


IJNAEALlZat I on, reality testing, etc*) can be performed. However, 
tne way you obtain a pointer to one is by use of patterns . I hat 
ls t upon spec 1 f teat ion of all or part of a list structure 
associated Uith such a datum, Connlver Mill generate or 
regurgitate the data that watch what is given* These are called 
Indexable data , because the restoration of a datum from a 
description of a Piece Of It is net possible without the presence 
of an index to all data of its type* 

The Indexable data types implemented in Connlver are I tern 
data , [netheels (of several types!, and method closures* 

111.1,2.1 Types of Indexable Tata 
111*1.2.1-1 Item Data 

The obvious operations on item data have been described in 
Chapter I* From that chapter, It should be clear that item data 
can always he referred to by their associated items or patterns 
that match thorn, using functions like flOO, REMOVE, PRESENT. end 
FETCH. However* each Of these functions returns pointers to the 
Item date Involved, the direct accessing of which is wore 
efficient that access through the index. 

For e*amp'la, 

(CSETQ 01 TAtiD 1 MERSHEV BAR) H 

return* 

((HERSHEY BAR) [0 (0 , +] >1, 
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or something similar. This structure has a CAR which is ths item 
Of 1 n threat, and a ODR Which describes its properties in various 
contexts (.see sect. III.31. Ths whole thing ia an j ten datum , 
and is pointed to by the I tew index . This means that tin a sub- 
context this tins) if £ REMOVE MlCRSHEV BAR )) is executed, the 
same item datum can be found, certain muttbo-ju«bo performed on 
It. and 

UHERSHEV BAR) (10 II) 3 10 (0 101)) 
re turned* This is the exact sshe datum lit is EG to the first) 1 * 
with its structure changed* {As Mill be described below I sect* 

3). its * tal I “ indicates that it is stilt present In the original 
context, but absent in the sub-context.) 

It takes effort to go from the structure (HERSHEY BAA). EQUAL 
to the Hen wanted, to {[HERSHEY BAR)**,), which 5 s EC to its 
item; datum* However, in this case 01 is a pointer to this datum, 
SO there is he reason why ons cannot execute 
(UNREAL!ZE DU 

In the same sub-context as the previous REHOYal, with exactly the 
sane result. In particular, HEALIZE and UNREALIZE cell if-addeed 
and i f-removed methods respectivs! g, just as ADD and REMOVE do. 

In fact, ADR can be defined as 
{REALIZE (DATUM item!) 

where DATUM is a function that maps itsms Into their associated 
Hern data, tlf an item datum was not previously indexed. DATUH 
generates one.) REMOVE has a similar paraphrase* 
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Far a description of the e^eet meaning of an Item's being 

'mdexei, soe beloM, 111*1.2.2, 

111.1*2.1.2 Methods and Method Closures 

The use and creation of these objects la deaM mi th 
eiseuhere, in Sect. 11.2 and VII.1*2* Some description of hOM 
they behave as data nl I 1 be given hero, 

ftny datu« that starts uith the atoe t*CL 05URE is treated as a 
Closure. If a da toe starts ul th any Other atom but ^OBJECT* it 
is supposed to be a method, Of the fare 
Etype name pattern body ...3, 

whara is its tall (see sect. 33. It can be called by TRY- 

NEXT or INVOICE (sect* 11+23, or ( indirect 1yJ by ADD and REHQYE. 
Jeer-dafined method types can be used In any May the user uisties* 
{Sect* V|I *2+2, F3 

If a method has a nan-NIL atomic 031 * 0 , It i# 3 special caed 
of a Qimt datum (sect- 43 + and the nates is uniformly used by the 
system and user to refer to it. 

111*1.2.2 The Index 

There are t«o tenses in which an Indexable datum ms.y bo 
"there. * One is the same as far abject data; ^ther-e 11 means 
''present in the current context." Thia is inplerented by ths set 
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0* markers on the 'tall" of every datum. The other sense i a 
"pointed to by the index,,* that is, findab is by asking the index 
maintainor for potential matches to a pattern, Indexable data 
Mill be indexed in this fashion cnI l, uhen they ere present or 
have a BCflflHCHl {sect* 21 In at least one context. (The 
motivation for thia is that cns version of E IA B Cl), a 
prDpsrtyless item datum, ia as good as any Other version of ((A 0 
Cl J, ad there la no point in making all of the* unique, I 

From the user's point of vieu, the index is just a list of 
al l propertied data* When a datum acquires presence pr some 
other property, it is added to the list* Uhen all its properties 
are flushed or the contexts It has properties in are garbage- 
col I ected I see sect. 3} t it is deleted tram it, 

Uhen the data base is initialized, each index (one for items 
and each method type! is indeed just a list of its contents, 
Houever, uh*n this list exceeds a certain site. It is broken doun 
into aubindevee . according io the contents of the CAR's and CDfi + * 
of its elements* Each sub index specifies an index tor each 
different atom that appears In a slot. These indexes are 
these elves index! fied if they became top large, 

Mou when a pattern is given to the data base* Tt can isolate 
a email subset of candidates far matching before running the 
relatively costly matcher. It does this by looking for a bucket, 
in the Index, corresponding to each constant position of the 
pattern, and taking the smallest bucket it finds. Far nethads, 
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In each position, it must take into account the bucket tor 
methods wl th a variable in that position. 

Thus* for Example* the function FETCHI, which fetches items* 
works as follows* 

a, Search the He« index for candidates* 

b* Throw away alt those absent from the current context* 
p. Hatch the others and make up 3 poea ibi I 11 i ea l ist* 

The indexer*s efficiency depends on two numbera* 
vrATOniNOEXTHRESHOJ] and STRUCT I ND0( THRESHOLD , which determine at 
What o i ze buckets of the tuc types [which wb really didn*t 
describe! are broken down, No one knout! what the "beat 4 values 
are for the numbers, or what they depend on* 1 f you want to 
worry about this, talk to DVn, 

The indexes point at item data and therefore keep them from 
being garbage^coI Iected* This 1 1 , of course, easentlal, since as 
long aa the contexts that contain them are around, such data 
might have to be accessed by pattern, However, this feature can 
lead to difficulty* If an Item datum haa a property that 
includes a pointer to a context in Which that property Is 
accessible, the resulting circular Structure (cantext -> datum -> 
property oantextt sot sect, 3> will be unco I I ec tab I e. So some 
interesting properties (like "frame an uhich this Item ul 3 * 
added*" If it points even indirectly to a binding af CONTEXT! are 
unfeasI Ole. 

The biggest bummer is that msthDd closures almost always 


111 * 1 , 2*2 55 


point to I rams s with a binding of context that includes the 
closure. Thus the presence af nany closures Mill choke up free 
storiige irrevocably. You might have to write your own special 
garbage collector to delate these data by hand* 


11|+2 Properties of Data 

H 1b always possible to giver any da tui» a name (*ect« 41 and 
asoert Items about It* in order to record its contort-dependant 
properties* However* for reascns of efficiency (and because 
i tons are not always the best means of representing everything) + 
it la also possible to associate i ndicaters with propertj ea on a 
datum* and retrieve thee in a context-dependent fashion* 

To associate indicator With property in context, use 
(□PUT datum property indicator context)* 

This causes da tun to have ths pair [indicator property **-) on 
Its tai E* where Is garbage described lh sect* 3* This pair 

is returned* This property pair will be associated with the datum 
in alt subcontexts of context unless It is behoved or overridden 
in one of them* 

(DGET datum indicator context) 

returns the first indicator-property pair found on the datum by 
■ ■arching the context* Its toper-context* etc** or NIL if there 
isn't one. Finally* 
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4DREH datum indicator content) 
does a DGET + but makes a 11 pairs found with that Indicator 
Invisible m conts-Kt and all its sud-conta* ts, sc that future 
0CET f 9 In the® Mill return NIL (5#s sect. 3K 

As an example of what dan be done u i tn property functions, 
consider the representation of the 11 c-ta c - toe board as an array 
SQUARES of 9 objects. Let each such object specify the occupant 
of the corresponding square in 3 particular content as it* 
property under the indicator OCCUPANT: if it is empty, let th^ 
object he absent in that context. Thsn FREE can be written 
(CDEFUN FREE (SQUAREI (UNREAL (SQUARES SQUARE!) 1 
and the occupant of a square In the current context might be 
found by 

(AND (REAL (5QUAHE5 SdUAftEJ J 

(CADR (DUET [SQUARES SQUARE) *OCCUPANT)I) 

which return* X T 0, or N3L, Then FCRCEUIN could be written 

(CDEFUN FDRCEUINI (PLAYER SQUARE) 

"AUK* ((CONTEXT (PUSH-CONTEXT))) 

(Qpur [Realize (squares squared player * occupant) 

(MAKEMOVE (OTHER PLAYER)) 

(TRY-NEXT (GENERATE (UINtlOVES PLAYER)) NIL) ) 

If the semantics of property-FiSt manipulators dees not quite 
fit your needs* there are more primitive functions, described in 
Sect* VJI,2,4 t which suable you to tallor™»ake your own versions 


of them. 
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It!+ 3 Imp I amentat I On of Confects 

A contact la prof 5 tably considered an abstract object whose 
only i n taros 13 ny character i- a t i Cs are hou It got started and what 
has been done to It and Its superiors since. Houaver, for soma 
purposes it may be useful to know that a context la implemented 
ae a Hot of context layers , each pf which describes tha 
differences between a content containing that I flyer and one net 
Containing it. Actually, It is of tha form trtCDNTEHT alegars*} 
far debugging purposes. 

II1-3.1 Presence and Absence 

To be precise, a ley*r T * functions are to indicate which data 
are tb be thought O# 09 raal i zed In context* containing that 
iaypr T and which such mention* by other Sayers are to b* 

■eance l I ad in contents containing It, The first function I* easy 
to gra*pi every datum Is present in a content if and only If a 
search up the content from most recently pushed to most global 
find* 3 layer that mentions that datum. (Fig, 1,1 
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CONTEXT - t * CONTEXT ll it /3 iOi 
FIGURE t. $#@ch Rule*. 


HoHover , 
'unreaI 1zed 
To make 


if that Mention ha? been canoe I led whan the (urn mas 
11 in oohe subcontext, It does not Count, 
this cle-ar, imagine tine following contest structure: 



FIGURE 2 

Th* numbers are contest-lager rmtbers. Four contorts, cl (20. 
10, B), c2 (40. 30. 10, 01, c3 (30, 10, 0}, and e4 (10, 0), ?re 
identified' (besides the global context c B (* (01)1, C4 lb super 
context of all but cQ. 
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Ndk i mag Ins that the structure of Fig. 2 is begun by a 
process that AprOuts a sub-context from the global context eB* 
and hypothesizes that the object da tun NEU-THENE £□#. sect, 1*11 
Ss rtiaUy "there,* In a visual scene. (Fig, 3) 


ABSENT 


NEW -THING 


PRESENT 



(PROG lr AUX" 

((COMTEXT 

(CSETO C4 (PUSH-COHTEXT)i)) 

# 

* 

* 

■ 

(realize new-thingJ 

If 

4 - 

FIGURE 3 * \ 


This causes NEW-TMING to sprout a lai I aF context-narhers (c- 
narkersl , so that It looks fine [svD&JECT (P4 RS R31 (10 (0 ■ 

«-H ), and is present in aM sub-conte*t& of c4 + actual and. 
potential (The format ot c-nerkers la described In detail In 
Sect, VII-£1, 

Non the process creates tu-a a ja-processss „ each rtl th Its Own 
context, In this case, cl and c3t 



FIGURE 4 
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Each precise investigates the interaction of NEU-“-THING with 
previ&u* parts of the scene. Tlis investigation in t3 leads the 
machine to doubt that NEW-tHING ie there* so it executes 
{.UNREAL! ZE NEU-THING Cl\ r asking it absent there by "hiding" the 
fact that c4 eientions the object. The object rC«alns absent in 
any sub-contexts Of e3 generalsd by furthsr pushing, IFig* 5> 



FIGURE 5 

Now NEW-THING - (^OBJECT (R4 RE R3> £30 till U0 [0 3BM) t 
indicating "present in all contexts with layer 10 except those 
u\ th layer 30 as mil** 

rieanurii Is. the process running in cl still Pel levee NEU-THING 
Is there. Imagine that it discovers it to be the onty possible 

supporter of another object which is known to exist, and h BnC e 
that NEU-THING is certain to exist a | BC34 j t e * ecute9 (REALIZE 
f£U-TH]NG C0) T which hakes It present in all the contexts: 
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PRESENT 


FIGURE 6 

Now NEU-THIMG look* like (ftOBJECT <R4 R5 R9> 130 U>) <16 i0 36!) 
(0 <S p +] > J t that ■$, a cancellation applies only to 
Outstanding, not future, realizations of a datum. Later 
realization* Mill override it, 13 f (REALIZE NEU-THlNG C4> had 
been executed, the same effect uiom Id have occurred, except for 
NEI4-THINC' b remaining absent rn cB, its tail Mould have 
consisted of <16 <0 . +)) again.) 

Not ail UNREAL! Zat i ons cause cancellation, if NEU-THjMG were 
UNREALIZED In c4 at the second step, Its tall Mould be emptied 
rather than be made to contain, say, tins c-marker <10 11 10)). 
That is, p-narkera never cancel themselves. 

In any given context, the predicates REAL and UNREAL can be 
used to determine If a datum >• present or absent, REAL returns 
i ti argument if there are any Outstanding (uncaneeMed) mentions 
of it In the current context branch, or MIL otherwise* UNREAL, 



II 1 . 3.1 G 2 


the opcosit«. 

All of these primitives operate by altering or examining the 
tails Of their arguments, which consist of c-mdrkara of the form 
(Inum (refco . status! *property-pa 1 reiV> 
where Inulfi Identifies a context lager, status Ip + t NIL, or a 
E i at of canceling Ihuhis, and property-pairs era Kxiplarned below 
(cfi sect* VII * 2) . 

MI.3.2 Implementation of Properties 

The association Of properties HI th data is in some sense 3 
genera I i“3t 1 on Of the notions of presence end absence. 

"Presence" can be considered art indicator whose associated 
prnperty Is ignored. It i* either there Or ndt there. 

Properties, on the other hand, have distinguishable values, eo 
they may be overridden 3s well as cancelled. 

Proper t i as ar# implemented as cancellable ''pairs" which are 
associated with c-marhers. If a c^marker «n a datuw loons likes 

tn L».1»*.(incl prop , status!-1, 

It means that datum has the ind-prop association in cantewts m th 
layer q, except those which cancel it, as indicated by status , 
which So "+■” if there are n* cancel I at tons. (Details are given 


In aact. VI 1 , 2.1 
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I IE.3.3 Context Layers 

A context layer Is l»pIemented as a lint <*LAyER inum 
*Cataf() h where Inum 1 b its unique layer number , and data are all 
data with at Least one occurrence of \ num In their tails. The 
reason the layer must ncint to each such datum Is that uhe» it la 
garbage-col Sec tad* the magic Ccnniver garbage collector must be 
able to remove all these occurrences. (Unfortunately, this means 
ccntex ts point at the data they contain, 90 the loops mentioned 
In Sect. 1.2.2 are possible.} 

Anyway* It le possible to loop through the layers of a 
context end the data in the layers, and thus apply some function 
to, say, all the data in a context. 

III.3.4 Nonstandard Contexts 

float contexts are generated by PLPSHing and POPping -CONTEKT. 
These processes cause the generation and discarding of context 
layers. Since individual layers are gometines Important, It is 
desirable to be able to string the* together Into new contexts* 
Then a layer which has a c-marker of non-MIL Status on a datum 
will make that datum present in any context in which It appears. 

A layer whoso number appears as a cancelier of c-markers nr 
properties can be thrown in to make certain data or their 




proper lies go away. 

The only restriction on ^spiraling nau context* it that the 
layers must appear In order of decreasing fnums, This ti because 
Operations like testing the vi sibi I i |y of C-markers and property 
pairs involve taking the Intersection of two set of Inums (the 
status and the context layers) + which is dons faster Hi th ordered 
sets. 

The functions which create new contexts are described in 
Seet* VI1,2,5, 


II 1.4 Maned Data 

Dcceeionally it is convenient to refer to an arbitrary datum 
by an atom rather than a pointer to the data* Itself, Sometimes 
this is a matter Of convenience* Sometimes, as Hi th fgnct lone, 
the datum must mention itself without being circular. In the 
case of methods r as mentioned hetore (sect. 11,2), one needs to 
be able to refer to the* by an EQ name uhen redefining them in 
order to avo-id having two around wl th the same pattern: an ato* 
fills this need. Item data are also cccasianally to be thought 
of as EC things: an its* that refers to another item uante to 
mean that particular thing* not a data structure EQUAL to It. 

Cf course, the user say use any hoe scheme he wishes to 
associate an atom with 3 datum. If he knoua atoms might have 
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data under the property F0O, the Item (POSSIBLE FFtABJ might mean 
*'ths Item under indicator FOD on FRAfi is possible.™ 

Another possibility is to create a wore intiuat* association 
between an atom and a datum, in which the system eoiiaidsrs the 

atom to stand for that datum In every situation, much as an atom 

wl th an E)>CPft property always stands for the associated function, 
in forms, as an argument to APPLV, etc. in a Lisp program. This 
association is needed for named methods, and has been extended 
for use with alF types Of data. Any datu* may be given a name 
with the function NAflE-DATUTt. If It already hae a name, the name 
will be changed. This function alters every old system- 

maintainert copy of the datum to be the new name, even down to its 

name slot if It lea named method. Thus the index, context 
layers, etc., will point to the atom instead of the datum 
directly. 

The other ways to give a dates a name are ulth the method- 
dot in rny functions, and the function DATUM with two argument*. 

All of those are documented in the appendix, sect, VJI+Z+Z+ 

The association of an atom with an item datum is a bit 
imperfect, because Of a problem with the identity of a 
property I ess datum, As mentioned in sect. II1.1.2, an item datum 
With no properties is not pointed to by the index, DATUM Of 
something like (A B CJ is a brand-new CCA B CH each time if the 
Item has no properties or presence. This will be true even if 
there is an atomic name for a particular such propertyless datum. 
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If the thing dltl hav* proper tie?, this atom would be uhat the 
system would return as the DATUM of I ta item, Put if it la 
unindexed, there ie no way to find the at&Ui, and the system la 
fooiet* into returning a new non-atom IC item datum each time DATUII 
ia called. Thua t If item (A 8 C) corresponds to (tA B Cl (IB (61 
(FLAU5 12 * +m, and you entente (DATUM MA 0 Cl 'FOOJ T then 
FDD Mill become associated with that datum* and (DATUM '(A B C) 1 
wi M thenceforth refunn FDD. 

hiOMevsr, If the item datum la just [(A B Cl ) t (DATUM T (A 3 
Cn Mill be l(A B C)l no matter how HSny times you name it. So 
be careful on the timing of naming data* 
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IV DN PATTERN-DIRECTED INVOCATION 

flethod* can be invoked In association utth adding i tews to. 
fetching 1 temg from, and removing items fro* the data bass. The 
invocation depends on a match between the method's pattern and 
the i tern, a match being an assignment Df values to the pattern's 
variables that Hill make It EQUAL to the item. Since when i f - 
needed methods sr# called. It is necessary to match two patterns 
against each other, the matcher always returns a list of two 
aiiets that specify assignments of as many variables on both 
sides as possible. If there Es no match, NIL is returned. 

The matcher may be called by HATCH varpat datapath; HATCH 
is aoLpmiPetniO in that it is biased toward assigning variables in 
varpat to constants from the other side* A pat tarn is a non- 
circular list structure with ^variable parts" marked by the 
prefixes - !>" and "M,", "Isrvar” must astch a var Sable-free 
section of datapath (This restriction ui l i always be met when 
patterns are- matched against Items,} Hatching H ! >ver" against 
something causes var to be bound an the alist for variables in 
varpat* with a value corresponding to uhat is matched- For 
example, I HATCH ' [FQQ 1 (FOCI BARM returns MIX BAR)} NIL)- 

(Here, "NIL* is the alist for variables In [FDD BAR).) 

The matcher is multi-level {that is, variables can occur 
be l oh the top level of list structure), and dots are allowed in 
patterns, as [CINQ QESI - !>X). Hence, the pattern (CFREDS T>X) 
- !>REST1 matches 
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C(FREDS FAIRER) UH1STLESI 
£ (FREDS FATHER) WISHES DIXIE) 

(EFREOS CONEI RE SAID) t 
generating asSOCI at i 6Pi lists 

UK FATHER) (REST 1UHISTIES))) 

(£X FATHER) [REST WHISTLES DIXIE))) 

UK GONE I (REST (HE SAID) ))* 

respectively* (The second lists ijrrj always NIL in these COnetJ 
Uhen FETCH calls thi matcher, it usee the vSrpat alrst to 
make up itsm qcssibiI 5 ty. Thus, if itans (SPIRO LIKES ROCKS) 
and (SPIRO LIKES DICK) er P prossnt In the current content ( (FETCH 
MSPJRO LIKES E>UHATH might return 

((^POSSIBILITIES (SPIRO LIKES !*UHAT)5 *1CHORE 

(*ITEI1 I (SPIRO LIKES ROCKS) (10 (0 ♦ +))) (WHAT ROCKS))) 
(*lTETt l(SPIRO LIKES DICK) (0 (0 , +))) ((WAT DICK)))). 

TRY-NEXT takes the association l tats trail I tern poeel bl F i 11 es 
and designs the variables as they direct. 

The wther principal prefiw is which refern to the 

current bidding of 1 to variable in the match so fen t or the 
current Conniver binding, and Hatches 1 te value. Far example, 
the pattern (GRANDFATHER ! + K) matches all item a correapand i ng 
to people who are their own grSndfathera. 

Artother frill la the ability tp specify a ne 3 trie ted match . 

If * \>" prefix?? a npn-atc»ic expression, Its COR le e (lot of 

tarns that must all evaluate (In Llflp) to nan—NIL after 
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assignment Of It* CAR. For examp I e, *> fK (ATOM! !,XM watches 
only a tarns, and I > (CREATURE (FEATHEIfLESS ! t CREATURE I (EQ (NUMBER- 
OF^LFGS 1.CREATURE) 2H matches featherless bipeds, If It is 
desired to bind and Initialize a variable in Its pattern's allot* 
one ca-n write "!*(var I nl t I a I -VI I lib I, M For example, {FEJlNCTMTF 
!>FGRft !,(F {CAR I.FORM)11 Batches (FUNCT-CF (FACTORIAL SI 
FACTORIAL) but not (FUNCT-OF [PLUS 2 21 MENUS), Finally, If it 
is desired to epee Mg an item shape without naming or saving Its 
parte, the prefix characters “!>" can stand pi one. Thus, (.FETCH 
*(FOC !>l) return^ a possibilities Fist of items of the form (F00 
kI+ but applying TRY-NEXT to It seta no variables. 

1 f-added* and if-removeds work nicely with MATCH. To invoke 
One, Connlver applies MATCH to ite pattern and the item that 
triggered It. If the result Is nco-MIL, the varpat a Ms! ie used 1 
to start the variable bindings in the method's frame {which may 
be augmented by "AUK" bindings). 

An 1f-needad method ]e rea My ah entirely different kind of 
entity. First* its match occurs at FETCH-tlme* Its aUsts being 
saved in a *METHOC psssih}lity until TRY-NEXT calls If, Second* 
such a method 1* a kind Of cal I able subroutine* which should be 
capable of more than verifying or achieving care it Ions 
represented by constant patterns. In particular, Dne would tike 
to be able to specify that a slot represents an output var i ab Ie . 
to be set by the mat hod but not by the match. This is 
accomplished by use of the prefix "M"; “ Mvar" matches only 




expressions uith variables Ev3r bsiig assigned to that 
expression, byt only Sd the user can see uhp{ ) e going to happen 
on output)< 

Thus* Mhen (NOTE {INSTANCE}) is called tp greats a value to 
be added to the possibilities list* HATCH Is called again in a 
spatial Ifleeret} uOy + this time w] th the FETCH-pat tern as varpat, 
which treats th* method pettern as an essentially constant 
structure whose variable slots ere to b* filled as Indicated by 
the values the variables have picked up in th* met hod , 

As an example, conaider the festhdd 

(1F-NEEOEO FIND-SUPPORTERS 
(ON l>K l<Y) 

"AUX" UP {FETCH * (SUPPORTS i>V I.XUll 

i LOOP 

CTTW-AIEXT P 1 (ADIEU )} 

(AU-REV01R (INSTANCE}) 

ICO ’LOOP} K 

This method util appear in a FETCH^possi bl I r t i es- I i a t generated 
by, e,g., (FETCH MON BQXL IxBJJ, but not ore generated by, e+9-, 
(FETCH MON T;*A TABLE U* which is looking for "suppertees" of an 
object called TABLEI. Hh E n F1 NO-SUPPORTERS is entered, X will 
have th* va|u* BGX1, and V th* value L>B- At statement :L0OP, V 
Is dot to the next supporter of 00X1, One such supporter ie 
returned each time the method Is entered er re-entered. 

Notice that this method has a completely different purpose 
frgia on* with the pattern [ON «<X !>Y) + which would find the 
11 support ees lf gf a given object Vj pr pne with pattern EON ! xX 
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!>YJ, which verifies a support relation* 

Decasiona I Iy, however, one uisnea the decision of what to do 
in cases differing in this nay to be made after the method is 
entered* Jn this case, Dne can use the prefix " !?" nh i ch Is 
ambiguous* it matChes anything, but its variable is assigned If 
and onliy if it matches a variable-free expression* The 
comp i ament ary ambiguity oh the FETCH-side is handled by the 
prefix H ![" which means H !>" if its variable ie unbound in the 
current natch aiist and unassigned by Ccnniverj or *1** if lte 
variable is assigned or bound in the match al i at but unassigned* 
These characters are typically handy in situations where a 
pattern is to be expanded according to its definition* regard i ess 
of exactly what is variable in it. Fcr examp he* If men are 
always to be treated as feather I ess bipeds, the to I I cuing method 
does the conversion if one is locking for men or attempting to 
verify that something is a man:. 

[IF-NEEDED IS-HAN 
(is in HAN) 

"AUK" (CP (FETCH '(IS ijX BIPED)})) 

i LOOP 

(TRY-NEXT P H (ADIEU11 
(COND ((PRESENT T (FEATHERLESS (,X)1 
(AU-REVDIR (INSTANCE))} ) 

(CO "LOOP) 3, 

It takes the place of the tuo methods that uouid be required 
ul theut "I?" and "!j% which would have "!<" and M !> H , or " I >" 
and 11 !, " instead, (Hicro-Plahner user a please nets that the 
micro-planner prefix "S? - includes both ambiguities, and uouid 
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take the place of alt prefixes used ip IS-MAN. I 

Fl na M y* seme i f-nseded Methods claim to be able to expand on 
the aaiiallfl forms of calling patterns rather than to be able to 
generate items similar to those represented by those patterne* 

The correspond I ng method-pattern variables are Signaled by the 

prefix "I" - *, which Is analogous to the . of CEXPR bound- 

variable declarations* "Vvar* Ijirtds var tfl an expression 
without examining Its internal structure In any uayi Its 
variables ar B neither substltuied or bound* For example, a 
method for causing (FETCH ’(AND ftcon j uhct sHi ) I to set the 
variables in the COnjuncts correctly might look like: 


(IF-NEEDED AND-EXPANDER 

(AND . rOONJUWCTS) 
fCDND (CCNJUNCT5 

*tux m ((PI (FETCH (CAR CONJUNCTS))) 

(P2 (FETCH ! * (AND . »(CDR CONJUNCTSJ)1) 
CDP2) 

;LQ0P1 

I TRY-NEXT PI *(ADIEU)) 

ICSETQ C0P2 (COPY P21) 

:U 00 P 2 

(TRY-NEXT DDP2 1 <GD ’LOOP1)) 

(AU-REVQIR (INSTANCE!I 

(GO ‘L00P2)) 

{(ALT-REVOIR (INSTANCE!1I 1). 


For example, if the items (GREEN BQX3), (GREEN B0X1). (GREEN 
B0X4 ) k ION B0X1 BQX2). and (ON BCX4 BQXS) are in the data base* 
repeatedly TRy-NEXTI nfl (FETCH 'tAND (GREEN !>X) (ON 1 P X !>V))1 
wi M set X to BQXi and V \a BGX2, than X to 80X4 and Y to BOXS* 
then duit* The method's value 1* always (ftNPTE NIL),, because ) t 
never concern:* itself with binding cal tiny pattern variables. (A 
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More efficient f ftp I e«entat i tm h by the uay„ Is obviously 
Doe8ihle.) 

All the syntactic frlill* such as restrictions and bound 
variable initialization Ci r □ legal in ns t hod pat tern a. Houever t 
it is generally meaningless to restrict a "!<*-marked variable. 

Tf !<[K UTDtf !,H3} appears In a pattern, it Is not clear tihat ie 
being restricted* It is certainly not poaalble by such a 
restrict I on to prevent f u t UrC assignments of X to anything rton- 
atcmi-c. All restrictions apply only at match time* In the case 
at +l !?" h restrictions nil) be run only if the prefixed variable 
la assigned In the match. 
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V LSING CQNNEVER 

Connlver is a remarkably fr i etc I y language to use, because 
its control structure is "open to the public*" The command 
CMVR^K typed at DDT causae Licnniver to print out its version 
number, sat up an Initially empty gI ohmi context assigned to 
GLOBAL, and print 
EAR-1 

Th-n la printed out whenever Conniver pants Input, The ear it 
is listening ulth Initially it EAR-1, This is net a jolts* but a 
tag into a REAQ-CEYAL-CPRI -NT loop at ths top level. Interacting 
with such a inop ought to be very easy far an experienced Lisp 
user* Eonniver uill attempt to CEVAL everything typed at it, and 
Mill print the result* format t iny the output SO that variables 
and special data types print in a lucid fashion. 

If Input is su Itched to a neu file (using UREAD1 , masses of 
DEXPR's cart be defined using 

ICDERJN nans Invariable-declarations*} ftbodgftl * 
“CFEXPfi's", M CLEXPH > s’ n 1 or something sini lar, are not needed 
because of the flexibility of variable declarations. 

Declarations can be just a list of atoms, but the construction 

"OPTIONAL" rtdetlarations* 

enables function to supply default values for missing trailing 
arguments. For example, the declaration fX "OPTIONAL* tY 
CONTENT) Z) specifies one required and tuc Dpt Iona I arguments; if 

Y is missing, it receives ths value of CONTEXTt a missing third 
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argument leaves Z rebound but unagsignerf+ 

If the last tuc elegants of the declarations are 

*ftEST" var 

var in bound to a list of the remaining arguments, each 
ava I ustert. 

In place of 3 declarrd variable. the form (QUOTE var} mays 
appear m any of the variable declaration slote. including ’'PEST" 
*var. This has the effect of blocking evaluation of the 
corresponding argument, or list of arguments in tbs case of 
11 REST*. A, FEHPR of one argument L in Lisp, therefor*., has as 
counterpart a CEMPR uith declaration (“REST" *L) * 

tit should be pointed out that this entire variable 
declaration syntax wag taken from MUOOLE. 3 

I4hen a Lisp or Connlver error- occurs, the agetee initially 
cause* a Lisp REACkEVAL'CPRlNt loop to be created as dose to the 
error as possible* (Such a loop is created by the function 
C£RR ,} Ulthln this loop, only Lisp evaluations can take place. 

If It is desired to continue from the CERR, type (RETURN' value- 
desired), A|t«ode-P Is equivalent to (RETURN NIL), Users - 
instances of CERR (and CQREAJf, which prints s Jess aiarming 
message) nay do anything they wish with a returned value* The 
System usually encis an error message with "// <eamething> ? H 
This means that (RETURN value) hill cause that eomsthing to bs 
vatu*. For example, if an attempt is made to evaluate X when it 
re unassigned» the message 
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UNASSIGNED VARIABLE X // VAL <- is¬ 
le printed* If th* user types (RETURN 51, X will get value 5, 
and the evaluation ul U proceed from the CERR. if there is no 
obvious thing to he returnsd, the eyatote wl I F type V/ GO ON ? 14 
Any value returned ui H be ignored, but if the veer wishes to do 
Nls dun patching and proceed, lie (nay. Finally, If there is 
nothing to be done, an attempt to proceed ul U land him in the 
nearest EAR loop, 

Within such 3 context tor any piece Of Lisp}* if it is 
desired to return to the closest C&nnivsr frame and create a 
listen loop* evaluate (EAR), This creates a Conniver EAR-n loop* 
whose creation is signalled by the printing of 
EAR-n 

which behaves just like the tOp-1 eveF one. A var ■ an t function is 
NEAR, Which returns to the nearest aiready-exist.ing Conniver 
I i aten loop, Finally* the function TOP flushes the entire 
existing control structure* resets the EAft-coon t *r t 0 1, an( f 
starts up a new EAR-1, (GO EAH-ll Is similar, but can only be 
executed from Conniver. 

The function BACKTRACE can be used to get a lucid summary in 
a CERR- or EAR-loop of the centrq^ pointer chain from the current 
Conniver frame upwards. Variable values can be Inspected, 
functions can be called, etc, Th* functions UP* OPUN, and J can 
be used to nova an EAR-loop around in the control structure. 
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TMs } a handy for "editing" the stack, checking out variable 
bindings 1h the top-most activation of a recursive structure, 
etc. {See sect, VM.S.t.) 

Since 3 tea Is a sort o# frame for most purpose*, a Conniver 
iistBFf loop cen ba flushed by EX[Ting EAR-n, The function 
{DISMISS framel has been provided to exit from it with no 
particular value-. DISMISS takes [FRAME] as Its default argument. 
Within a LISTEN loop, tP is equivalent to (DISMISS). 

To stop a Conniver program externally, use control-H (^Hl. 
This uill generate a READ-EVAL-PRINT loop [as It would in Lispl t 
which can bo exited with SP. Prom this loop, CEARl ul H gat you 
to Conniver, which remembers the Lisp expression It was working 
on, OISMISSing this EAR-n will cajse the Lisp evaluation to be 
re-at tempted {not resumed! ■ 

Another way to interrupt 3 Conniver is with “A, Whose action 
depend* on the next character read. Jn general, this character 
must have a A A ("uparrow A") property an its property list; this 
property should be 3 function of one argument (the character! T 
which le cat led when ""'A that-character" is typed at Conniver, 

If there Is no Such function property, 3 question mark le printed 
as "X'a solo function. 

There are several built-in system functions that are handled 
by this mechanise, "'AE causes [EAfil (d be executed at the next 
interruptible place in Conniver? Ji “AN t (NEiAftJ, **AT causes (TOPI 
to be executed Immediately, A Lisp READ-EVAL-FRIMT loop nay be 
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caused with "ALt this \3 equivalent to a CERR loop. Tuo others 
da not cause listen locpsi "AF flushes the currant input buffer 
If control is already in a READ* and is thus equivalent to a 
million rubeuts; ^AX prints tbs current expression being 
CEYALuatsd inside Conniver, and continues* "AX is a nay of 
checking up on uh.at the evaluator Is doing without stopping it* 
The Cemniver error System operates «fi th the more general 
Canniver interrupt system.* The Lisp vsrlabie CiNTiERRUPT contains 
3 list of expressions to be CEVALuated at the next opportunity* 
The function 1C E NTERRUFf expi adds exp to the end of the i i et* 

It Mill cause it to be evaluated the next time control returns to 
Cortniver. {Besides the error system,, 1f-added and i f-re»Qved 
methods also cause interrupts to happen.) The function {ALLOW T- 
or-NlL) enables or disables all interrupts* ]f interrupts ore 
disabled, CINTERRUPT queues them until (ALLOW T) is executed* 

In many places in Conbiver "‘"G or ™X will cause Lisp to 30 to 
a very’top -1 eve I REAEJ-EVAL-PRINT loop; io such situations they 
are equivalent to STOP (see beloui, However. just as Lisp must 
protect Itself freto such things during garbage col lection, 
Ccnnrver disables all such Lisp interrupts when its data base i 9 
in a momentarily inconsistent stats— i.e., when it is making 
Changes to it* At such times* there Is no way to stop the thing, 
so don* t give it* s.g. t a circular list as a context* 

You can get out of Conniver at any time by calling STOP* 

This leaves ail Connivsr structures intact, but puts you in @ 
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Lisp REAO-EVAL -PRINT I pop* Tc restart In e*actl« the state 
before (STOP), call IfillN) t ycuVe back In Conmver, (RUN and 
STOP have wore sophisticated uses; see the appendix.) 
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Vi LISP AND CONNIVER 

Lisp functions do net usually calf Conni vet CEXPR's, and 
CUNT's [the analogue of FSUBR' s in Lisp}, bee subs Lisp stacks are 
fan innri perishable than Connive-'s frame-trees. IBut see the 
description o f CEYAL, below.) Conniver ear call any Lisp 
function, though, and Liap EXPft + s t L£KPR" s, L5UBR’s, and SUBR's 
can taka Conniver arguments in forms evaluated by Conniver* For 
example* 

(PRINT (TRY-NEXT P NIL!) 

is perfectly legal. Lisp functions called by Conniver can 
reference Conniver variables free by use of the function IA 
varT, abbreviated Avar". Far sxSspls, Lisp functions should 
refer to CONTEXT as *CONTEXT. 

EAR, NEAR, STOP, and other Conniver system functions use 
labeled CATChies and THROW a to do nan-local control jumps. The 
u3y Lisp currently works, there is no w3y to prevent unwanted 
interaction with users* on labs led CATCHss should they be in the 
way* For example, (CATCH (NEAR)I will return something 
meaningless rather than go to the nearest ear, 

Sines Lisp CSh't rail CEXPFf 1 », functions that dD Conniving 
things bust be written In Conniver down to a low level. The 
resulting slowdown «ay make on* cringe, but there is a remedy. 

Any piece of pure Lisp may be made more efficient by prefixing It 
with the “a B macro-charactar, and making alt Conniver variable 
references explicit by use of ","* 


For exsaple„ 
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w(THIRD-]N-ROU ,SQUARE 1 , SQUARE?) 
where TUIRD-IN-ROU is an EMPR+ ia much more efficient than 

(THIRD-!N-RQU SQUARE1 5DUAPEZ) 

because 11 on panels into 

{/■» THERD-IN^RQW {/, SQUARED t/, SQUARE?)). 

/* being a FEXPR . namely 

(LAHBDA {EXP) (EVAL EKP) 1, 

Co-nnlver always gives FEHPR’s complete eontrbf ever tneir 
argument evaluation^ so Just hands the e«pre**ion {/» .*,) to 
EVAL, saving generating a frame and interpreting the expression. 
The 9 macro Is thus a way of hand-compiling arbitrary sect lens of 
code Involving no CEHPR’s or UNT's, Another use of tbs • macro 
Is getting the Lisp value Of a variable within Conniver[ 

■CONTEXT + for instance, get* the Lisp value of CONTEXT * Just as 
*,* gets Its Conniver valuta 

A Lisp program. If It really wants to, can use CEVAL to 
Conniver-evaluate a form* If it is a MBlI-bshavgd form, this if 
Just like using EVAL, but there are pi tfai Es. Some of the 
problems stern from the fact that the frame and its daughters 
generated by execution of the farm may hang around {with a HAM.j + 
far example) t after an EMIT bPCK to the Usp, Uh I I e control is 
irt this structure the first time, Lisp variables bound in its 
caller mag be accessed (with el, and |n general everything ip 
Cool. After It returns, however, the Lisp return point vanishes, 
along with Its fra*te, bindings, etc., and even the frame of th# 
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EXPR CEVAL + 

|f control re-entem the Connlver structure, the h*u Litp 
stack-state above it mil b&ve nothing tc do with the original, 
none of the eld, now unbound. Lisp variables hi I I be 
refohfcftceebIe, and a return from the structured top level will 
have no obvious meaning. This is not to sag that a process 
Created in this manner has no use, but merely to emphasize the 
Clangers in creating ore. Attempting to a- a Li ep variable uill 
probably find It unbound ^creating a Lisp-error in- Connivtrl, and 
an attempt to return from the control structure again CBU9C9 the 
entire- Connlver to return tp Lisp (thinking it 1e returning to 
the Lisp frame that etartsd the CEVALK In such a way that 
RUNti i ng or START ing is impossible. 

There is still another problen which Is even worse. If, 
during a CEVALuatiPh, centre | leaves the now Cdnniver control 
structure it created te.g., by GOing to an old tag), 3nd never 
returns, the Bntire old Cccniver process ni l I be running with a 
Lisp stack slightly different from what it started with. In 
particular, all the Lisp frames that were around when CcVAL uas 
called are Still there, but there is no way to detect or flush 
them. |n such a situation, £ TUP (see Append ikI no longer does 
the right thing, and the stack has Open enlarged ]n perpetuity. 
Enough such pathological CEYALa can cause a ndl overflow* The 
user Is strongly encouraged to UTi.fr RUN and STOP for L i ap-Conn i ver 
interact ipn, even )f they are trickier. 
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One pleasant thought «8 that many Ccnni vet function-g are 
actually EXPH 1 s, cr have EXPR vara tens uh i gh do almost the same 
thing* fin the compiled Conniver system, of course* these are 
SUBR '9 or FSCBF 1 #* but I ui I I cent irue to use the term EKPR in 
the loose Sense "Lisp function.") For example, the CEVAL you get 
if you cal E It from Lisp ia clearly different from the ClWT 
vereion the Conniver interpreter uould find- Alt functions with 
EMPR varsioni can, of course, tit called from Lisp* Happily, they 
include all the data baee-Meriipulat ion function a, put the EXPR 
versions, of ADD* HEflDVE, FEALEZS, and UNREALIZE differ slightly 
from the CEKPR versions because the invocation of any if-added or 
if “removed methods must bs CEVAL’ed* Since if-adried* and If- 
removads are probably not too elcaaly linked with the prdtedS 
that triggers them, these are prpbSbIy gafS CEVAL*+ 

□ns worry the u**r doe an T t hav* te have Is whether his Lisp 
functions Mill clobber or rebind internal Lisp variables used by 
the Conniver interpreter, Ai i Conn I ver atoms Conniver doesn't 
want you tD see have been "ha I f-fci II erf" in such a way that they 
will print out but cannot be recognized during user input* 
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VU APPENDIX! THE CCNNJVER REFERENCE SOURCE 

moorcas the preview* sections of this manual are a 
discursive overview of Conn Tver for the purpose af Illustration 
Of and 5 Fit ro due 110n to the Ideas embodied in Conn Ivor, this 
section is an 3tt*wpt to provide S reference source for thfr 
active user. Thus, it contains a be tailed description cf each 
primitive of the 3 anguage , enuivE r a ting the pos s t b I e error 
conditions that are associated up th that primitive and its 
limitations which might not be immediately apparent. Besides 
primitive operators* every language has a eet of reserved words 
{syntactic Indicators and significant variables!. These til II be 
duly noted* 

This appendix ha* three section** one describing the 
evaluator* one for the data base functions, and one for various 
debugging aids* Every function dafinsd has Its type lor types! 
specified next to a sample call* CtNTs and CEHPRs 3ro invisible 
frotn Lisp and thus are only defined In Canniver code, avoiding 
Interference with Lisp functions of the same name. 
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VI1*1 The Evaluator 

The Connivan interpreter evaluates expressions In a 
ranner similar to that of Llsfi* The haute syntax; is an follows* 

cunniver expression - number * atom * 

p a-expre a a 1Dn A a a-expr a asian 
A !^s-exprssslan * (function ^argumenta*I 
where tha arguments are themselves Ccnniver expressions land zero 
1 a a passible number of them?. 


The eve Iyation rules ere: 

It As ih Lisp, quoted expressions and FluHberS evaluate to 
themaeI vbb, 

2. The value of an a to* ia its value Os a variable. This value 
Hit I be determined by ita value from aa*e local binding or 3 
hidden list of global values. 

3* An expression fo Mowing an s i a passed directly off to Lisp 
for evaluation* u c recommend that code be uHttsn so that ao 
much as possible happens in L i ap because of the considerable 
speedup attainable. 

4, An expression following ! ” is called a eke leton . which is 
expanded as foMowst atoea expand to themselves; rt t atois’ expands 
tO' Ih* Conniver value of stem; "eexpression" expands to the Lisp 
value af ■BwpregaM ant 11 t !®axpressi an . raetl" expands to (APPEND 
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L t ap-va l ue-of-express i pn expsn 3 ion-of-rea tl s " texpl. . rest) 11 
expands to ICONS expans|on-Of-ewpl expand!on-cf-restL Far 
example, If X- (A E CL !"(,X D*(GDR ,X> tlaiCCDR P X> . ,X]> - 
f (A S CJ D IB C> 1C A B PL 
5. Functional appEScat ions aro processed as follows? 

If the function is atonic, it is chocked for Cl NT, CEKPR, 
FEXPR, FSLIBR definitions, Ef an atom has two such definitions,, 
the first on Its property list is taken; this means that if the 
user wants a function tc be a FEMPR in Lisp code and a CEXPR 5n 
Conniver cade, the CEXPR must be defined Past so as tc be first 
on the property list. If it Is none of the above, it is assumed 
to be a Lisp EXPA + 5UBR, or LSUBR+ thus undefined function errors 
come from Lisp. 

If the function is a FEXPR or FSUBR the form is passed to 
LIep for itnmediate evaluation. In this case, Conniver does not 
define a neu frame for Its evaluation. 

In all other cases, a neu frame Is created* with appropriate 
access and control (inks. 

If the function is a ClNT (such as CONDI the fern Is 
evaluated by the appropriate internal Conniver routine. 

If the function is a CEKPR, the arguments are paired with the 
formal parameters of the function land perhaps evaluated] as 
specified by the declaration in the function (see CCPFUN for 
details!. After binding, the bedy of the function is executed. 

If the function is an EXFR, SUBR, or LSUBR the arguments are 
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evaluated by Conniver and then the Lisp function is applied to 
the resulting argument list Mith Li op APPLV. 

Ef the function is non-atomic then either it is an anonymous 
CLAM3DA expression (CEXPfl} or It 1 s an srtenymou* LAI1BGA 
expression (EKPR1 and treated accordingly. 

Note that there are id other casea. The function position is 
never evaluated as in Lisp. Functional arguments are handled 
explicitly, preventing ambiguity, using the function CALL. 

Execution of the body of a CEKPR. PROG or r^TNOD proceeda as 
f □ I Ions: 

If it begins with the reserved word "AUX n + then the auxiliary 
variables that follow It are bound, (See below, Sect, VI1.1.2.1 

The rest of the body is then executed sequentially (unless 
the sequence Is changed; bg a GO}, The value of the body (and 
hence of the function} is the value of the last expression In the 
body., unless a return is forced by RETURN. EXIT, or DISH ESS, 


viLi as 


VlI.L'l Communication uith Lisp 

A* (RUM (stuff NJLJJ LSUBR 

(STOP (stuff NIL]) LSUBH 

Uhan a Conniver prograe is running, its control structure Is 

'‘serviced* by a sol of Lisp programs which Use the Lisp stacks 

Control repeatedly returns to one called RUNL, which is the 

"Inner loop 11 of the system. Beneath the frsae of RLJN1 on the 

Stack ts i te caller, uhich is expecting a value to be returned. 

The function STOP car be used to return such a value. 

Wien it does, the state of the Conniver computation is not 

disturbed, because r t bust alt be saved in various frames anyway* 

STOP lea vs ft everything in ftuCh a state that CRUM xl wilt cause 

the- Conniver to start again, as though STOP had returned x* RUM 

does this by catling RUN1, Hence, a later [STOP y} wilt make 

ftUNl return tD RUN uith value u. RUN returns this value* 

Hence, these functions allow Lisp and Conniver programs to 

treat each other as co-routines;. Control is passed from Conniver 

to Lisp via STOP and from Lisp to Conniver via RUN, The argument 

to STOP i b returned as the Lisp value of RUN and the argument of 

RUM is returned as the Conniver value of STOP* STOP may only be 

called if Conniver is running, otherwise! 

CONN EVER NOT HUMNING—STOP 

RUN may only be called if Conniver is not running, otherwise: 
CONNIVER ALREADY RUNNING—RUN1. 

Examples To have Conniver evaluate expressions passed to It from 
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LI ap t wo Conniver Into th» loop* 

(PRDG H AUH" {[MESSAGE 'HI-LISP) 3 
tLUOP (C8E7Q MESSAGE tCEVAL (STOP MESSAGE)I> 

[GO T LOOPH 

Conniver returns to Liap with the value HI-LISP. Thereafter Lisp 
*nay gst an fixpregsion evaluated by Conniver by calling 
{RUN expression) 

The value of HUN Mill be the Connlver value of the expression, 
Uithin a {Lisp! CEVAL, STOP causes Its argument to be 
returned as the CEVAL*a valuer this ui I I be true even if Cormiver 
control haie left the structure that COAL set up. RUN uiF3 not 
get the program back to the execution point Of that STOP, because 
after leaving the CEVAL+ Conniver is already running. So. be 
careful with using STOP to return a value tor a CEVAL- 

It. for some reason, the Connlvsr interpreter |not the data¬ 
base — see OATA-INITI needs to be re-lnl tie I lied, it can be done 
by executing {from Lisp onlyH 

C. (START) $UBR 

START resets all of the Conniver Internal variables (including 

the ear) and goes into the top-level Helen loop. Global 

Connlver variable bindings and their values are not changed. The 

data base It not disturbed, but all contexts previously saved 

only as values of Conn i ver variables will be lost to garbage 


COllection. 
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When In- Conniver I&ft$E-0ftSE-lff+ and a I I character macros are 
in effect! these return to their Lisp defaults whan returning via 
STOP* 
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VI 1,1+2 Procedure definition 

All of the functions below define procedures which Include a 
slat called the "body," The body of a procedure is evaluated as 
foil oust The value of a function ie the value of the tael 
expression In the body (or of a RETURN, EMIT* or OlSfliSSJ# The 
body is just a sequence of expressions to be evaluated# If it 
begins with "AW (a reserved word* then the- next element of the 
body Is taken as a declaration of auxiliary variables CPHDG 
variables in Li spl r Such a declaration is a list of atoms and 
initializations. Each atom is bound but loft unassighed* An 
Initialization is a list of an atom and an expression# The atom 
is bound and assigned to the value of the express ion# This 
expression must not evaluate to a tag or frame for the current 
activation of the procedure In which the "AUK* appears. 7c 
initialize a variable to a tag. you must allow It td bo bound to 
*UNASSIGNED# then CSETQ it to the tea value desired# 

A# (COEFUN * atom 'declaration '*fcodu*) FSUBR 

This function Is used to define the atom to be a function 
kith the formal parameters specified by thE declaration and with 
the body given. The definition will be placed on the atom's 
property List under the indicator EEHPR. The body Is simply a 
sequence of statements to be evaluated sequential ly. It may lar 
say not I bsgih with a declaration of auxiliary variables 
(described later), The formal parameter declaration syntax 3s as 
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folI cue: 

dec Iaration - t abI ,i gatory variables OPtlon-al variables 
excess) 

obliaatpru variable - &mptu A earl **. pffrty 

par] - atom "atom 

oot ionaJ_jyjaEjja!bleg - emptu * "OPTIQNAL" &&L **. 
op] » atom A ’atom A [atom default! (’atom default) 
excess - emptu " "REST" atom A "REST* 'atom 
The semantics is as folloust 

1) Formal parameters are matched against arguments from left to 
right. 

2) There ■must be at least one argument far each obligatory 

v3r labia. 

3) Unless there la an excess collector dec I arse, there may not 
be more arguments than declared variables. 

Argument* are evaluated uni ess the correspond mg formal 
parameter is quoted D. 

51 If the Argument a run aut while binding options Is* they are 
filled with either *U<NA5S IGNBO, or if an expression for the 
default value Ie given, the value of the default expression (in 
the fra»0 of the function with all previously proceesed variables 
bound1 is used. 

£1 An excess collector gets the hat of arguments or values of 
arguments (depending upon the existence of a + ) left over* 

This elegant syntax is due to Chris Reeve of HUDDLE. Mote how 
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beautifully this does Auay ullh FEXPR's And UEHPR's and hon uuch 
more flexible than Lisp it Is. 

If the evaluator is not satisfied that the number pf 
ergciaente \b right for a function it prints either 

TOD FEU ARGUMENTS’—VARS - remaining vans // ARES <- ? 
end uemte arguments for the leftover variables, cr 

TOD flANY ARGUMENTS—ARDS ■ remaining args // VARS 7 
pnd inients variables to bind the leftover arguments to. If the 
syntax of A declaration 3s not as specified ebdve the error 
comment; 

BAO DECLARATION—VARS - rotten variables N VARS <- 7 
Hill be generated, and Anything RETUflNed ulll replace the rotten 
variabIea. 

To create a method ue use one Of the cone true tDre: 

B. tIF-ADDED I + atomJ 'pattern 'rtbadyfr} FSUBR 

UF-REHDVED ['atom] * pat tern ' ttbody*) FSUBR 

UF-MEHIEC r'atom] "pattern ‘ iftbady-*} FSUBR 

The given atom IS defined or redefined to be a method of tha type 

Indicated, invoked by the given pattern, with the given body. 

The method required is |h* value of the constructor. If the atom 

is not specified, the method is not named, but of course, it may 

he saved as the value of a variable. Td be accessible by 

pattern, a method must be put into the data base via INSERT or 

ADD, Once a named method has been added to some contents, 

redefinition of tha same name ul f I cause it to remain present in 
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the s am e - c&fl t 1 5 * 

The pattern \b the analogue of the variable Reclamation? 9* i 
CEKPR[ in particular, the appearance of any type of match 
variable ^except E,var"I eignd IS that variable ia to be bound 
when the method is Invoked, the pattern it uaefl as described in 
Chapter [V. 
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VIM.3 Sequence Evaluators 

A. (PROG ("AUX" T aux-vari at I e-dec I ar at I on-*] 'ftbodytt) 

Cl NT 

(PROGBIND au*-var5abI e-dec 1arat i on 'vsbodyiirS C1MT 
The value Of a Conmver PROC is the value of the I apt 
expression Id Its body. ThE Expression* id the body are 
evaluated in Order after any ^AUX" variables are bound. These 
var rabies are subject to the snrse format and restrictions as 
those for CEXPfi' a and methods* The sequence of evaluation may be 
altered by use of GO (Sect. YII*i*5). 

PRDGBIND is like PROG except that it evaluates it* first 
argument to give a list of auxiliary variables. For example* if 
X-A, 

(PROGS!ND (LIST (LEST X SH (PRINT A) 3 
bind* A to 5 and print* ”5". 

EL (COND 'clause! *,* ^clauseN! CINT 

CQNO In Conniver i* almost Identical to CDND in Lisp except fcr 
th* fact that the CDR of a Clause is a general PROG body* Thus 
It may contain an H, AIJX"' dec I a«-a 11 on [See Definition of 
procedures, PROG) and Statement labels (tags)* Thu? entering a 
COM) clause produces a neu activation block so remember this when 
using EXIT etc- This is a legal use of CONOi 
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(COND H- N IT "AUK" UN %\ P) 

fCSETQ P ( ACTBLDtK )) 

ILOOP (CONG U- fCSETQ N SI- Fill 0) 
(EXIT 3 PHI 
(CO 'LOOP?I 

(T 2)1 


C. (AND 1 Abody*) C1NT 

(OR T *bodysi] CINT 

Those ar* exactly equivalent to their Lias counterparts. AND 
returns the value of (ho last element qf its body or NIL If one 
Of the elements evaluates to NIL. IAND) ■ T. OR returns the 
value □ f the first non-NIL element of its body, or NIL if a IS of 
i te elements evaluate to NIL* (QRJ - NIL. 
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VI L. 1 + 4 Frame Creators and Manl pu I atcrs 

Dcnniver Keeps track of what It it doing by maintaining a 
Structure called a jjr for each invocation of alt kinds of 
functions except L i ap FEXPR 1 s or FSUBR's. A fr is haaically a 
structure tilth five slots! IVARS, BVARS, FORM, AL1MC, and CLINK» 
IVARS are the Internals of the interpreter} BVARS are the 
variable I dc 3 lives for the variables bound In the frame; FORM Is 
the expression whose evaluation gave rise to this frame; and 
ALINK and CLINK a'* the access and control fr H s where free 
variables Mill be Iook«ci up and where control will return, 
respect!vely. 

These objects are dot explicitly touchable by the user, hut 
are parts of . frames* tags, and closures, tbs data types returned 
or manipulated by the functions of this section. 


5UBR 

LSUBR 

LSUBR 

SUBR 


A. {FRAME) 

{ACCESS Iframe {FRAME))) 
[CONTROL Eframe (FRAPEIJ | 
[EXPRESSION frame) 


FRAME returns the frame with respect to which- it was 
evaluated. This means the nearest enclosing frame In which 
variables are bound. This ^earn that in m**t reasonable places 
In a PROG or CtXPR, {FRAME) will be the frame of that PROG or 
CEXPR’ s activation. This naans that constructions like [ACCESS 
{ACCESS (FRAME) I) will have the Correct meaning, no matter how 
deeply nested they are- 
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ACCESS returns the access frame of its argument - 

CONTROL r eturna the control frame of Its argument. 

EXPRESSION returns the expression whose evaluation created 
the frame supplied. It le useful for hunting around in the frame 
fl tructure, 

The argument to ACCESS f CONTROL* Or EXPRESSION must be a 
legitimate frame* If it I a not we get the error ms s a age : 

BAO FRAME SUPPLIES // FRAME <- ? 

By 41 legit innate frame H ' la meant anything that contains a 
pointer to an internal fr. This Includes all the data types of 
this section, franes, tags, and closures, In what follows* 

" frame" is used ambiguously to refer tp any of these or "*FRAMEs* 
in particular. The ambiguity is harm\&ss because the system 
never cares which you mean* 

B. (TAG Eaton!? LSUBR 

(ACTBLOCK) SUBR 

TAG searches the control link chain from {FRAITE3 for the 
first activation block containing a statement label :atom. It 
returns a fag structure whose frame IS that activation block and 
whose body-pointer ii to that statement label. 

TAG of no arguments ip equivalent to ACTBLOCK* which searches 
for th* first activation block {frame with a body! in Its 
environment and returns a tag to the beginning of the body. If 
either a TAG or ACTBLOCK Is unsuccessful in Its search it returns 
NIL, 
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C* (VFflATlE atom [frame ffRWEJJJ LSUBR 

VFflATlE searches up the access link chain from frame until It 
finds a frame In which ate* ift bound a a a Conniver variable. Lt 
returns that frame. 

□ * ECLOSURE procedure I frame (FRAME}]} L54JBR 

CLOSURE produces the lambda-closure of the procedure 
{function* method} Indicated, This is an object of the form 
(ttDLQSUFIE procedure fr} + Later Invocation of the closure (see 
CAUL) causes the environment Of the procedure (its access 
painter, uhere It searches fqr bindings of free variables, tags* 
etc,} to be frame E-g, I f K - 4 then[ 

(CALL HtLAPlBDA (K> EtLOSURE + ECLAHBDA tY) (+ X VII > I 31 5} 
has the value 3 but 

(CALL I {CLAJ1BDA 00 1 I Cl_Al“BDA (VI (+ N Y) I) 31 5) 
has tha value 9, 

This ie the classical "FUNARG“ device. 

E. [St'TACCESS framel frame?) SUBR 

E5ETCDNTFT0L framel frame?) SUBR 

These functions are used to alter the ALINIf and CLINK* 

respectively, of framel to be frame?, Those ulll alter the 

locatives of free variables referred to In framel. end the frame 

to uhIqh It returns. Each function returnt Its second argument. 
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F. tSAHEFRATlE framel framed! 'SUBR 

Functions Uke FFIAJ1E cons a neu list Structure oath t Irnie th«y 
are tal led + SO ED mH not work as an 'identity test on frames* 
{EQUAL ui H not «ork because frames may Oe circular.! SAMEFRATIE 
®hOwl«t be used. It returns non-Hi L If and Drily if tramel and 
fra»*Z actuary refer to the same tr. 
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VII.1.5 Alteration of flow of Control 


A, (CONTINUE frente) 
(GO atam-or-tag) 


cint 

C1 NT 


These two functions cause 9 given fr to become the current 
process description* that ie t they cause control to resume In a 
previously construe ted frame, CO ia a sped a* case erf CONTINUE 
which takes only a tag argument{ (GO tag] is equivalent to 
(CONTINUE ton!, but GO has other uses. CO always evaluates its 
argument, avoiding the ambiguity of Lisp* If its argument Is an 
atom, (GO argl is equivalent to (CD (TAG erg))* that ie* If 
searches up the control link Chain froe (FRAME) for a statement 
label "$ arg," Execution then proceeds from the statement label 
found. If the argument is of the wrony type hr an atomic tag 
cannot be found we get: 


FOLLOWING NOT SEEN AS TAG—ergunent--GQ // ARC *- ? 
CONTINUE can cause the error 

BAD FRANE SUPPLIED ff FRAME <- ? 


B* (EXIT value [frame (ACTBLOCK]]) 

(RETURN value) 

[DISMISS [frame fIrst-ncn-COND-frame!| 


CINT 

CENT 

CINT 


EXIT returns from the frame indicated pith the value 
Indicated, If no frame id 9 1 van it returns from the nearest 
activation block, Caurt I_qn : COND causes an activation block, 
RETURN returns from the nearest non-CDND activation block, 

DISMISS is EXIT from the frame Specified Ml th the value NIL, If 
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no frame is given it does a (RET^HH HSU. If there la no 
act Wat ion block to RETURN from Or EXIT fraa ue gets 

NO FRAME U3TH BODY—EXIT tf FRAME ? 
or 

NO NQN-CQND FRAME WITH BODY—RETURN // FRAME <- ? 
and the frame you RETURN nil I be tX5 Ted u i Ih np further cheeking 
for bodie a. 

If DtsnlSS or EXIT la given a non-fra»s they complain! 

BAD FRAME SUPPLIED // FRAME <- ? 

C, tADIETJ poaL.**pesN1 CEXPR 

(AU-REVOIR p«l„„poiN> CEXPH 

These functions return to TRY-NEXT from a flftnerator* NOTEing 
possibilities 1 . ■. N In that order (None may be supplied. See 
NOTE)* ADIEU leaves for good but AU-REVOIR finishes by noting a 
tag inside AU-HEVQIR bo that TRY-NEXT can resume the generator 
ubere It lift off* The value of AU-REVOIR, on resumption* i * tha 
message passed In TRY-NEKT laoo TFIY-NEXT), 
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V J E,1.G Ref a t 1v* Evaluation 

A, tCEVAL sprees Von If rams IRWHEII! Cl NT + LSUBR 

This is 'the standard relative evaluation function. The 
expression li evaluated with respect to the frame specified 
(default, the current environment) as its attejj frame, If the 
frame supplied is hot legitimate, ue yet: 

BAD FRAI1E SUPPLIED // FRAME 7 
The LSUSR definition of CEVAL can be used tc do Conniver 
evaluations from Lisp, Unfortunate )y T if you uaa it to do 
something really cl ever T you probably are doing the wrong thing. 
See Chapt* V] for an account of the dangers involved, 

FL (CALL funct j bna I -argument argl ar qN) Cl NT 

CALL applies the functional argument to the arguments 
supplied* If avoids the Lisp aisiguitu in the cave that 3 
functional argument is the value of a variable arid we have no way 
of guaranteeing that it has no function pcopferty* The functional 
argument may be a function, generator, Or closure of a function 
or generator. 

CL t INVOKE method pattern! ClNT 

INVOKE attempts to match the pattern of the given method 
age)net pattern* If the match fails, the value Is NIL, 
otherwise, the method-pattern el 1st generated is used to Start 
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the method's varla&le bindings, and Its body is cxccutttl as a 
PRDG„ its last enpreaetfl.n yleldin-fl its value tun lest the f|ou of 


centre! is altered!. 
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Vli.1*7 Variable maripuI a torst 


A* (VLUC ato» (frame (FRAME)1) 
(RVALUE atom [trams tFRATt}]!) 
(/ + ’atom) 

(LVALUE 'atomI 
(ASSIGNED? atom} 


L5UBR 

LSUSR 

FSUBR 

PSUBR 

SUBR 


VLUC returns a locative to the value ef the atom supplied if 
it is found in some frame in the accuse link chain starting with 
the frame epee if led x If not + it returns NIL+ 

RVALUE return a the real value of the atom given in the frame 
specified Sit does not check for VrUNASSlGNEOl, If either VLOC or 
RVALUE are given an Illegal frame k ue get: 

BAD FRAME SUPPLIED // FRAME <- 7 
(/, atom) (abbreviated **atom" via macro-characters) geta the 
current Conniver value of the atom, this is htu Lisp code called 
hy Conn Tver code geta the value of Eanniver variables. 

LVALUE gets the Liflb value af Its argument* (LVALUE atom} Is 
equivalent to (but not identical to) Baton. 

ASSIGNED returns as its val ue, T if its argument has a value 
(other than rtUNASSIGNED) and NIL If It is unaesigned, 

B. ICSET atom value [frame (FRAME)13 L5UBR 

fCSETQ 'atom! valueL . "atomN vai UB N) CINT.FSUBR 

IUNASSIGN atom) SUER 

C5ET ia the most oouerfuli assigmi*nt operator? it sets the 
a turn to the value relative to the frame specif lech 


VI 1*1*7 I3& 


CSETQ 1b a min.pr- C5nv*ft>*rtcBE It does not evaluate 1 ta odd- 
numbered Arguments Uhe atoms}. 

L1NASSIGN sots its argunant to stUNASS[GNED, 
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viui.a Possiui titles n*ts 

A poss1biIities list Icr-eateD by FETCH Dr $ generator 
function] has the following format, 

possibi 11 ties - {hflOSSIBILITlES thing} 

laet-posslbl I \ ty 
boal poaNI 

thing - expression gr pattern that created this list 
posl ■* {ftHETHCO method methallet col [allot pat tern! *■ 
{^GENERATOR form)* 

Cy<AU-REVOIR frr 
S#ITEM item-datum atrat} ft 
IftNOTE alistl * 

tueer-defined-paa-tgpe «,.I A 
anuthing eI as 

l ast-poss i b i I i ty ™ ^IGNORE A CVcBLOOC ^processes*) A 
prevlous-posl 


Thus anything may be a possibility byt the specifically mentioned 

types have special interpretation iru 

A, (TiRV-I^E)(T possibilities Enomore WlLl Emessaye NIL!) 

Cl NT 

TRY-NEXT Is used to try the first possibility on the 
possibilities list. In doing SO, It clobbers the list, receiving 
the first cne + If there are none, It evaluates nonore and 
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returns the va!u«, The action taken by TRY-NEXT Oft each type of 
pose e b 'lily Is a? fOIIowa: 

1. EaTIETHOO method matKalist cal la list oaf I pat tern! 

The method Id invoked, ul th Initial bindings given by 
me tha I let. (The two allots arc Usually from the MATCH that FETCH 

weed to filter out useless methods,) It may generate new 
possibilities using ADIEU or AU-REVOIR, The nau possibilities 
are then spliced into tbs current one, replacing the method 
possibility which generated them. TRY-ftEXT then loops back to 
try the flret possibility in the newly augmented possibilities 
list. The cal Ipattern is used by INSTANCE inside th* method 1 for 
generating output ell Sts, 

Method possibilities are assumed to behave as a kind of 
generator, as just described. If they return a value (*,$,, by 
running of# the end of their bodies! T the value is ignored, 

2* ^GENERATOR form! 

Exactly the same as a method except that the form is 
evaluated rather than the method invoked, til thin B generator 
NOTE tsee below! works, but INSTANCE does not. 

3, {tfAU-REV0!R fr! 

This ie th# way AU-REVQIR can be respited. The TRY-NEXT gee* 
off tq the appropriate place in the AU-REYQlR which passed this 
back. The AU-REVOTR returns to Its catl-ar (ths generator or 
method) ul th th* Optional T1RY-NEXT message as it* value, 

A, £#ETEf1 iten-datum alistl 
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Thr a list la a Hat of variable-value pair a probably 
panetrue tad by the watcher. The variablE® are set to the 
indicated values and the item-datum } B returned as the value of 
TRY-NEXT, 

5- (viNQTE piiet) 

This type of possibility ha a the same aide a Meet as a iVl TEN 
possibility with the same alrSt T but returns the entire 
possibility Instead of an I te*+ These flro produced by the 
function INSTANCE mentioned, belou, and are a method's way of 
simulating: 1 tem®, 

E, (user—def 1 ned-paa-type. * . I 

If a possibility ia non-atomic* and begins with an atom with 
a <tFG35!BiLITY property, that property la aasumed to be a 
function of ana argument. TRY-fEXT cal la that function ultb the 
possibility a® argument, and returns whatever value the function 
produce a. For example, to create possibilities of the form 
{ttASSUNPTIQN Item coni , Which return item and have the side 
effect of setting CONTEXT to can, define 

10SFUN ASPQS {POST 

1CSETQ CONTEXT [CADOH POSH 
•tCADR POSH 

tGEFPROP ^ASSUMPTION ASPQS POSSIBILITY! 

7. Anything el as la returned as the value of the TRY-NEXT, 
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At any given tlm-e T the la*t-possibi1ity slot of the 
possibilities list contains the last possibility that uai 
returned. Initially, this is ^ICNGRH; when control Is In the 
process of entering a method, it is tftBLDCK bvready-praoesses#) . 
Uhl eh structure is used to avoid certain timing errors. This 
elaborate machinery 1« present so that tuo not-necessarHy- 
eynchronized protOssei hay suck poseibi ( i11 es out of the game 
(iet and be sure Of getting exactly the same pDsg i bl I i t i eg ifi 
•Mactly the same order. I (DYMI am rot to blame for it- 

Thus ue see that TRY-NEXT does not stop churning. Pack for 
more possibilities created by called generators until either the 
pose i b i li t i eg list ig empty (i.e.. t -kiPDSS IB i LI TIES..*} oEGNGRE) 
or an item possibility nr an "anything else* is first on tine 
Fist. If TRV-NEXl is given a bad possibilities list we get. 

BAD POSSIBILITIES LIST 

B. {GENERATE 'form! CEXPR 

This function takes one unevaluated argument, which it 
assumeii Is a generator form. It returns a possibilities list 
Uhi-Ch starts with the first rton-lnsthod or generator possibility 
returned by the form. Thus, (TRY-NEXT (GENERATE fcrml1 is 
equivalent to (TRY-NEXT l"<UP0SS1BILITIES form} *IGNORE 
tfcGrNERATOR for mil I , but (GENERATE form! ig not equivalent to 
!" ( (^POSSIBILITIES form) IGNORE (^GENERATOR forml II, because the 
generator is actually called by GENERATE. 
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A tnst hod manes item pcssibi 51t i ee as instances of Its 
Invocation pattern uithi 

C, tINSTANCE! FSUBR 

uhich returns the current Instance, in the form (rtNQTE a list}, 
where a list is a pairing Of the variables in th* cal I al 1st of the 
current method with values obtained in a neu natch of the method 
311st. It wilt get upset if there are unasaigned variables In 
the pattern and uMI ask you to assign them. 

A generator Or method may note a neu possibility via 
□ , (NOTE Ipoaaibi I ity (INSTANCE)) posM.pesNl L&UBFt 

This function adds each of Its arguments to the current 
possibilities list; hence, It can be palled only In a generator. 
It cannot be called with iero argument*: (MOTE! means (NOTE 
(INSTANCE)). 

E» (ADIEU pesM.poaNI CFKPR 

(AJU-REVOIR pos..,posNl CEXPFt 

If a generator (including a method) uante to gat the 

possibilities list of the TRY-NEXI if feeds, It can; 

See Sect. V31,1,5. 

F* (GET-ROSS101LITT ES S FSUBR 


- I 
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It ca-n replace the poeaibi 11 ties Hit of that TRY-NEKT byi 
G* {SET-POSSIBILITIES paaslbl 11 {lea-1 p H t> SUSR 
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Yl 1.1.3 The Interrupt System 

In this section we outline the ConiViver Interrupt system in 
its crudest form, The system uses it for errors -and calling i f- 
added methods. These uses are described! in the remaining 
sections- of the append lx* 

A,. (CIMTEHRURT expression! SU&fi 

(NOW expression! 5UBR 

These two functions both cause expression to be evaluated as 
soon 3s Control is next in the ConnlYGr evaluator (if interrupts 
are allouedt see 6), They *Sy be called frpm Lisp T in which case 
the interrupt lens uill be deferred until the current Lisp 
evaluation Is over. The difference between them ia that 
C1NTERRUPT stacks Its Interrupt so that all previously ordered 
Interrupt a will be run first, whereas NDU causes expression to be 
evaluated before the old Ones. 

6. (ALLOW *T-or-NlLl FSUfiR 

(ALLOW NIL! causes interrupts to be disablsdt i. e., 

CINTERRURT and MOL* will stack expressions that are net evaluated. 
ALLOW of anything else enables interrupts; at the next possible 
place, all pending Interrupts will be run. 
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VI1.2 Ths Data Base 

The Connlvsr data base is a hierarchical structure of 
co-n letfts . or a "tree* of contact - I auer a . containing four types of 
data ] ob rect a., j_Un; iaifl. tDSJtods . and method cjpsurcg . 

Objects are of the form: 

t*D0JECT arb i tr ary-a true tore ftc-markerso) * 

ttan data are of the for*? 

■{ I ton ^c-markersrtJ 

uhere Hem la any ncm-clrcolar list structure. 

Methods loot like 

(type name pattern body oc-markersfli), 
where type is IP-NEEDED* IF-APDED, or [F-REMDVED, or a uaer- 
def i nod nethod type; name Is an a to* uhich ia the method's name 
unless it is NIL; pattern ie anon-circular list structure with 
all variable* (if any) marked as (>var, !«var* l.var, etc.* and 
body is a function body. 

Method closures look like 

(vrCLOSURc Method fr rte-marksra*J* 
where met had is a method, and fr ia So internal frame pointer. 

Any datum may be given an atonic name by FUTPRDPiny it on the 
atom under the indicator DATUM., This is done automatically by 
the method-defining functions, but must ba dons manually for 
objects, its* data, and closures. The function MAFE-DATUM may be 


uaed for this 
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Alt such data have tppselbly NI1_I lists of E^ ^rj^era 
associated m! tb them, A c~merker is of the form 
t lnum irafco . statu*? ^proper |y-pa I rsVf) 

Where Inum is a I ayer number; refCd is & reference count of the 
number of references besides this cne to the layer number Enum by 
this datum; status is + T MIL, or a fist of Inums of layers where 
the c-markar is cSnceM^ed ; and property-parrs are of the form 
find prop * status), uhere End and prop are arbitrary, and status 
I® a® for the whole datum, The c-«srkers on each datum are in 
order of decreasing inums, as are- the Inums in a etatue. 

A □-marker or statu® with a given I num indicates a men t i on of 
its datum by the context - Iauer associated uith that Inum, A 
context-I ayer is of the form 
AVER I num sKdat asr) 

uhere I num is St® unique layer number, and data are the data it 
men tion®, 

A content 5 9 a \ Iet like 
t-ftCQNTEXT *1 flyer sit), 

Where 1 flyers must be in order of decreasing Inums. It Ta worth 
mentioning here that none of ths functions that depend oh 3n 
explicit or Implicit context -argument check for the presence O'f 
the ^CONTEXT flag at the beginning of the OOP text, Hence, any 
■1st with a Eist of layers as its edr Is a legal context; in 
particular, (COR context) - fFOP-OOWTEXT context! for all 
hr acticaI pur poses. 
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Every datum ha? various properties, Including presence or 
absence, which vary ! r cmn context to can text. Typically* data¬ 
base changing function* I I Ska ADO, REMOVE, DPUT* and DfiENl apply 
only to the current context and it; subcontextB* uhite data-base 
Searchers {I ike FETCH* PRESENT, and OGET) search the present 
Context from the most local layer upwards* ignoring all canceled 
c-marker* or pairs, These notions will now be made precise. 

{The next two paragraph# may be ignored.] 

Each context rigorously define# the status Df every datum as 
present or absent; ■ as follows: if the datum has a c-marker whose 
9nun corresponds to acme layer of this context and Who#* Status 
is + or a Hat with no [nuns corresponding to layers of the 
context* it is present, else absent, In other words* tt la 
present If It has at least one uncanceIie-d c-marker, In 
particular, if it is unmEntioned by all layers In the context* It 
is absent* 

Each context also determines the properties that a datun has* 
as foil oust Its property for indicator i nd is the prop of the 
first property pair In a £-marker with 3mum corresponding to acme 
layer of the context, such that that pair Is uncancelled in the 
context? i.e., the first pair whose status eftarea no I nuns. with 
layer# of the context. If there is no such pair* the datum has 
np such property, 

Every c-marker must specify either non-MR. status, or non-NIL 
property-pairs* or nar-jaro refco* or any combination, and canno-t 
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bo cancelled by I ti oun Inutn, or it does not constitute a 
mention. System functions delete all c-markers of the forma (n 
f0}|; a statue of the form l.*,n.**} which appears a^uHhc-c In a 
C-marker In..*) is concerted to NIL* For example* if {5 {0 , 51) 
ever Sri sea, It is converted to {& [0H and deleted. 

Uhen a layer la not pointed to by anything, it is subject to 
garbage collection. All c-aarkers embodying a mention by it ui I I 
he deleted from their data. 

Item data, methods* and method closures are indexable datas 
they can be referred to by pattern in FETCH and other functions* 
This indexing is done automatical ly by the system uhenever an 
unment i oned da tub becomes mentioned {by ADD, DFUT, and other 
functionsIf unindexi op occur b when its last sent ion 5 a removed 
(by REMOVE* DftElt* the garbage col \ be tor, etc.). Anonymous 
unlndexed item data and methods are subject to garbage collection 
if unprotected. 
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Pat;a - Base Errors 

The data-base fun-ct 1 ons are tightly Interwoven, They all 
call a common body of invisible functiona which analyse their 
argumientej it is these that print most error messages, Hang 
functions generate the fa I lowing two messages: 

TOO FEU ARGUMENTS— function // RESULT ? 

TOO HAMV ARGUMENTS—function // CO DN7 

The first nil I cause whatever you RETURN to be the vain® of the 
function. The second util Ignore the e*tra arguments if you 
prccHd. 

[Tany functions use system routines to break a datum into 
usable chunks. They can generate the message 

MEANINGLESS DATUM — function // DATUM <- 7 
If you RETURN a better datum, the system mil! use it in glace of 
the bad one. 
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VJI,2.1 Data-Base Initialisation 

(CATA-INIT In 1001 la IS]) SUBFt 

This function Hipse out all currently existing contexts, and 
unindexes all indexable data. It creates a brand-new data base 
governed by the parantars n and m. n is the total number cf 
context layers allaued; if the data-base functions ever attempt 
to ns in tain more than this number at once* the message 
TOO HANY CONTEXT LAVERS — LAVER 
uitl occur* ISso LAYER for a more complete Account.) 

The second parameter, m„ is ths increment between the nunbere 
of context layers consecutively generated by LAYER. Given the 
ordering constraint on layers, and the tact that SPLICE tqv.} 
must be able to generate layers uith I nuns between these of any 
tuo layers, even if they were generated consecutively, they 
cannot be numbered 0, 1, 2,..,, but 0* m, 2m, 3m..... 

Conniver dees a {DATAMINIT 100. I@*} when it is loaded, 
creating a data bass with at most 103 layer* at a tine, numbered 
0, 10*, 28*, 20.,.*** 
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VI1*Z*2 pa turn Creation uni Manipulation 

A* [DSJecr Structure NIL)) LSU0R 

creates and returns a brand-neu object of the form (ttOBJECT 
structure), Hhero structure )* arbitrary. This object ib 
initially absent In all contexts, and, of course, not ED to any 
other. 


B. (NAME-DATUM da tun atom) SUBR 

This function causes datum to be called by the name a to* in 
all future dealings with the system. It returns the atom,. It 
datum- la as yet unmentlqned by any goo texts, this Is equivalent 
to IPtJTPRQP atom datum)„ but NAME-DATUH avoids certain timing 
•rrors associa ted with the other me thud, 

□nee a datum is named, the name should be used thenceforth in 
referring to it. If an a I ready-named datu« la renamed, the 
system hi II use the new name from then on. 

One reason far naming data is so they can be used 1m items, 

A pointer to an actual ncn-atomle datum as a component of an item 
(as, (POSSIBLE ([INNOCENT NIXON! (0 <0 * +)))>) la a no^no, 

C* CDATUM item [name]! LSUBR 

Item data are normally created implicitly whenever the User 
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names up th a skeleton that does net refer to Any Currently 

indexed item datun. J f , hoMsvsr ( the user creates an I tern datum 
hirase-lf. by Using LIST cn an I tern, it Is obviously g uar an t e ed not 
to be FQ to an indexed; i tsm datum for the seme i tem Hf any) . 
Thus* if he executes {REALIZE {LIST * (LINE G001 ] I) and [(LINE 
£B0l) (3 (0) (ABSENT T . is already indexed T the new one 

ulH be indexed as well, (Ths indexer ecu Id Gh«k for this, but 
it would slow things down.} Then FETCH u i M find bath* and 
PRESENT uiu find an unpredictable one of them, Tp gat around 
thl a problem,. Use DATUM I hat sad Of LIST* OATUH returns LIST of 
the resuFt only if it cSn't find It in the index: if it can, it 
returns the unique item datum uith that Instantiated skeleton as 
it a i tem. 

If DATUM ia given a second argument, It becomes the name of 
the datum, and is the value re Turned* 

D. (I Terr Hern-datum} 5UBR 

This function Is equivalent tc CAR for the usual type of Item 
da turn T but a Esq works on atomic-named data* It I a the Inverse of 
DATUM* Thus, If you execute [NAME-DATUM [ADD 1 (CZQRAI ZEPH 'FDD) 
then {ITEM ’FOO) - {GZQRN ZEP), and 
[DATUM {ETEtt ’POO3} * FDD 
tlTEtl {DATUT1 1 fGZORM ZEP) I) - {&20RN ZEP) 

E. {IF-ADDED [‘atom} 'pattern '*body*I FSUBR 

EIF.REHDVED E'atcm] 'pattern ’Abody*) FSUBR 

(IF-NEEDED fatom] 'pattern '*body*I FSLI0R 
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See sect. VII.1*2.8. 

F. mETHQO-TYPE a tain) SUBR 

(DELETE-rCTHOD-iyPE a tom I 5UBR 

Those functions are used to define new method types, in 
addition to IF-ADCED* 1F-REH0VED, and IF-NEEDED. thETHDD-TYPE 
atom) causes a tod to become defined as a me thod-def i n ing function 
Just like IP-ADDED, with its own index. If DATA-lNtT 1i 
performed subsequent 1 y, all such methods mill be deleted. For 
example, following mETHOO^TYFE ’PRE-ADD)* 

(ADO 

(PRE-ADD PI (ON !>X !>Y) 

(AND (PRESENT (ON 1*X F»ZJJ 

(remove imon ,x .znm 

Mould define and add a new method of this type. Presumably, such 
a new method is intended to be used with a user'e own ADO 
function; h* is responsible for setting up routines (unioff 
FETCHri, INVOKE, and TOY-NEXT) to US® the method properly. 

If the ueer wishes to define methode of the new type uith 
some function of a different format from that of the standard 
kinds, ha ehould define the defining function first; METHOD-TYPE 
will avoid redefining it. 
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VJI.2.3 Enlarging, Depleting, and Ssarehing the Data Bae« 


A, (REALIZE datum (context COMTEKT] > 

tUNREAUZE datum [context CONTEXT] 1 
(ACTUALIZE datum [context CONTEXT)I 
{UNACTUALIZE datum (context CONTEXT]) 
{ADD Item [context CDMTEXTJ] 

{REMOVE Item [context CONTEXT) I 
UNSEAT item [conte* t CONTEXT] | 

{KILL item lean text CONTEXT) I 


CEXPRhLSUBR 
CEXFH.LHJBH 
LSUBFt 
L SUB Ft 

CEXPP,LSUBR 

C0EPR f LSUBR 

L3UBR 

LSUBft 


These functions make datum oreBent {REALIZE, ACTUALIZE, ADD, 
INSERT) on ah tent (UNREAL IZE, UNACTUALIZE, PEflQVE, KILL) T by 
giving It *+■ status in the c-«ark,er tor content’s first layer, 
or by canceling all outstanding c-n-arkers, respect i v& I y. Hern, 

"datum," rneane datum [REALIZE, UNREALEZE, ACTUALIZE, UNACTUALIZE) 
or "Hem datum referred to by item" [ADD, REMOVE, INSERT, KILO. 
All of them raturn datum, {ADO and REMOVE can be ueed to alter 
the statue pf data ■not referred to by gkeletgnt gee Vll .2.3.0.1 

The affects of these functions are invisible in all super- 
contexts of context^ these effects uill be collected as garbage 
If the tog Eager is ever caught unprotected by the garbage 
col lector. 

If ADD or REALIZE is giver a item or indexable datum 
argument, respectively, all if-added methods matching datum's 
name that are present In context Mill be invekbd- Similarly, 
UNREAL!ZE and REflDVE Invoke H-removed aethods matching datum^s 
name, In all cases, the date base change occurs before any 
methods ere called. Methods ere celled only if datum’s status 
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Changes* i*o.. realizing a present, or unrealiling an absent, 
datum Is a rio^op. methods are called fry Stacking I nrvoeat i ons of 
them aa Conniver interrupts. Hence* [ALLOW NIL! M> II cause all 
If-addeds to remain uninvoked until interrupts are re-enabled. 
Warning? The LSU0R version* of these four functions execute 
hidden CEVALs to accomplish the method invocations* If the 
methods do anything really clever and subtle, invoking them ui I I 
probably screu your program. 


B. (ADO atom [content CONTEXT!! 
(RET1DVE atom [context CONTEXT! P 
(INSERT atom [context CONTEXT! P 
(KILL ato» [context CONTEXT! I 


CEXPR,LSUBR 

cexfr t lbubr 

L5UBR 

LSUBR 


If ADD and REMOVE are given atomic arguments, they are 
synonymous ui th REALIZE and UNREAL1ZE; INSERT and XlLC wi th such 
arguments are synonymous ui th ACTUALIZE and UPJACTUALIZE, The 
most common use Of this extra msanrng is in using ADD to add 
msthods, uhich usually have atonic names. 


C* (FETCH pattern [context CONTEXT]! LSUBR 

(FETCH! pattern [context CONTEXT!) LSU&R 

(FETCHM pattern [type " IF-NEEDED! [context CONTEXT]! 

LSUBR 


FETCH returns a possibilities Hist consisting of item 
pOSUlbl M ties for all items present In context that match 
pattern; followed by method possibilities for all if-needed 
methods in context nhose pattern* match pattern. For the format 
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of these lists, see Sect. VII*L*fi T 

FElTCHI returns a (jpgs i b '• I 3 11 ee Hat containing only the iter* 
►?0381 bi fi t i es, FETCHfl returns a Hat of only the method 
peas! t> i I i t 1 SB o * the type type, that are present in content and 
match pattern. (Type may be a user-defined type iSect Vl 1.2.2).!' 
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VTI.2.4 Properties of Data 


A* (REAL datum (context CONTEXT!) 
(UNREAL da tun (context CONTEXTH 
(PRESENT pattern (content CONTEXT!) 
(ABSENT Ham Econtext CONTEXTH 


LSUBR 

LSUBR 

LSUER 

LSUBR 


These functSene return datum If end only if It IB present 
(REAL,, PRESENT! or absent (UNREAL, ABSENT) in context, and NIL 
otherwise, REAL and UNREAL are handed their data arguments 
direct fy; PRESENT tries to return a randomly chosen present Item 
that matches pattern; ABSENT takes BATtH (qv.) of its argument 
and then calls UNREAL, 

PRESENT behaves a lot like (TRY-NEXT (FETCH1 pattern)); in 
particular* ft assign* any variable* In pat tarn to the pieces pf 
the 1 ton: that they matched, 

R, (DPUT datum property indicator [context CONTEXT?) 

LSUBR 

(□GET datum indicator [context CONTEXT!) LSUBR 

{□REtl datum indicator (context CONTEXT!) LS&JBR 

EDPUT+ datum property indicator (context CONTEXT]> 

LSUBR 

(DGET+ datum indicator [context CONTEXT]] LSUBR 

(DREt1+ datum indicator (.content CONTEXT]) LSUBR 

QPUT associates the pair C i rdf eater property , +) with datum 
in the first ("mast fecal" J layer of contact; Hke REALIZE* 
UNREAL lZE, and their ilk, these effects are invisible above 
context and garbage-collectable if its top layer is reclaimed. 
DGET finds the first uncancelled pair associated Mlth Indicator 
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in any layer Df context, alar ting H ^ th its first layer; if then* 
i a no such pair, Its va I mS is NIL. □REN' ha a the same value, but,, 
as a aide effect, cancels all uncance (I ftd p.irrs starting ui th 
i nd i catort it doe a It by adding the In urn tor- the fop layer of 
contort to the statue for all these pairs, thus, after a DREH t 
OGET tor the same datum* indicator, end content ul I l return MIL* 
DFUT+, DGET+, and Dfl£n+ are exactly the same, but they ignore 
all context layers before the first in which datum has 
Li n cancel tad statue. Thus, DPUT+ gives a datum properties in the 
content in which it is realized* this is useful If a property 
happens to be calculated tor the first tleo In a hypothetical 
context* but is Itself nan-hypothetical; DPUT+- makes sure it ie 
visible from all subcontexta of the one in which the datum first 
appeared, and eaves having, to calculate it repeatedly, once per 
hypothesis. If DPUT+ is given a datum which is absent in 
context, the error me*sags 


ABSENT DATLJH — W 5 UT+ // GO PM? 


occurs. 


C, CDPUTL datum property Indicator layer! 
IDGETL datum Indicator layer] 

(DREtlL datum indicator layer] 


SUBR 

SUER 

SUBR 


These functions manipulate properties in an Explicitly given 
context layer* DPUIL associates property with indicator In the 
c-marker for layer on datum, As usual, these effects are 
invisible in euper-“contexts not containing layer, and will be 
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garbage-col 1 acted if layer is, DGETL and DHEfU. March the c- 
marker 0* layer on datum for a pair with fire* element - 
indicator^ and return it k or NIL if there len't one; IIlHErt- 
renovea uhat it finds. 


VU.2.5 123 


VII. 2.5 Nam i pul at mg Contexts 

ft. (LAYER! LSUBR 

(FLUSH layer) SUBR 

LAYER returns a r»en layer mi Th a number higher than that of 
any other, (It uses the second argument to DATA-IN!T (qv.J, 
adding It to the number of the previous oh* it generated. I If 
there are 33 many Layers already as provided for by DATA-INIT, 
LAYER calls the context layer garbage collector to free apace for 
more. . If aM the places are taken, tns message 
TDD F1ANY CONTEXT LAYERS — LAYER 
la generated. 

FLUSH removes all copies of the loom of its argument from all 

data mentioned by 31, If some datum loses all of Its c-iearkers 

because of It* It Hill be unindexed. The error messages that can 

come cut are due to Comniver errors, which should be ignored* 

since hie do not wish to hear of unpleasant things. They are: 

ND REFERENCE COUNT FOR LAYER Inu* 

ON DATUM datum —FLUSH1 
TOO FEU REFERENCES TO LAYER Inu* 

ON DATUM datum —FLUSH1 


B, (PUSH-CONTEXT [context CONTEXT] 1 LSUBR 

(POP-CONTEXT [context CONTEXT]! LSUBR 

(FINALIZE [contest CONTEXT!! LSUBR 

(NEU^CONTEXT layer-|let! SUBH 

(SPLICE context) SUBR 


These functions create new contexts, and return them.' PUSH- 
and POP-CONTEXT return contexts pith one new layer added to, or 
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the front layer removed from, context, respoCt 1 v*1 y* It POP- 
CONTEXT tries to pap the Last c-layer <1.a.* GLOBAL} off, it err* 
utth the message 

EOPTY CONTEXT — POP-CONTEXT ff SUPER-CONTEXT <- ? 
and returns uhpt you give i t + 

FINALIZE has the same value as POP-CONTEXT, with the Bids 
effect of making Its ar^uhant an equivalent context to ite 
super! Or, That 1 i T alt data will have the same proper ties in the 
sup ar-Con text that they had In the original one be equivalent* 
NE14-C0NTEXT oreateB a context by COfSing the flag ^CONTEXT 
onto layer- 1 1 st, The layers In the list must be in order of 
decreasing Inums, or the message 

UNURDERED CONTEXT — NEU-CONTEXT if LAYERS <- ? 
appears, and NEW-GQNTEXT tries again with the list you give It* 
SPLICE adds a brand-neu layer to context, lust after Its 
first frame. This layer ui 11 hav* a currently unused number 
between these of Its successor and predeceaser, If all such 
numbers are in use, the error message Is 

NO NEN CNUN BETUEEN Idu AND high — NEUCNUM 
SPLICE is called for I ts side effect. Its value la EQ. to ate 

argument„ but changed, of course, 

Sin-ce SPLICE and PUSH*JCONT£XT call LAYER, they can cause its 


error* 
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C, UN-CONTEXT context form) CEXPR.SUBR 

CEYALuates farm with CONTEXT rebgomf to context. Thus* for 
examp I a, 

UN-CONTEXT Cl '{ADD ‘(FALL SKY))I 
ia equivalent to 

I ADD MFALL SKY) Cl 3, 

In genera I, IN-CONTEXT a flows you to pretend any function takes 
an optional eon text argument* The SUBR version of IN—CONTEXT 
□aMs the Lisp CEVAL. 

0, I KENTIONERS datum [sign NIL) Econte.it CONTEXT]> 

LSUBFt 

(CONTEXT* datum Icontext CONTEXT]} SUBR 

NENTHQNERS returns a fist, in decrees I fig Inum order* of all 
the layer a In context that mention datum. If sign is non— M3 L* it 
ignores all cancel led c-markers* I f sign does ■“ NIL, FlENTIONERS 
returns all men Honing lagers* 

CONTEXT* returns the closest super-context of context in 
which datum uas realized] i.e.* whose first lager has a c-marks" 
on datum with irncanceI led status. Hence* EDPLI7+ datum prop Ind 
context) means the same as (DPUT datum prop Ind (CONTEXT* 
con text)3 * 

E* (C-liARKER datwm layer) SUBR 

This function returns the c-marker for tayer on datum* or NIL 
)f layer daean*t mention datum. If layer is subsequently 
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garbage-co I I ectc-d, 
ia>K' 1 ths c-msrfce.r 
say Cnnnivar didn' t 


Ur the C-marker degenerates tq 
will no longer be attached to 
give you enough rope* 


the form +l £n 
datum* Nfrvur 
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VJI.2.E The Hatcher 


The watcher is documented in detail in Sect, IV, More we 
merely sulnpiar i ie the meaning of each of the variable ere fixes 
that it knows about. 


A. *>v&r —■ The basic matcher variable, which matches any 
expression which does hbt contain any variables (after 
substitution for "J,var’s"'), and binds v3r to it on the alist f&i* 
its side of the match, The only exception Is that a f>vsr 
appearing in a FETCH-pattern need not »atch A var iab1e- 1 ass 
expression In a method nattern; it will be bound t-0 aUMASSICNED, 
and, when the bethod returns, wil l be assigned to the piece Of 
method pattern it matches, ul th method variable values 
substituted., The form 3>(var ftrestrictionsivl matches any 
variable-less expressiom such that all the restrictions are non- 
MIL whan -evaluated, 

B* !,var — This form does not bind a variable, but raters to 

the value associated with A previous bindings either one produced 
by I > or tbs Conniver binding in sxistance when the match ia 
started, 

C-, !, tvar value} — Thi s binds var to value, and matches 

anything that value would natch, 

D. !<var —- in general, Sxvar makes sense only In a method 
pattern, It matches ohlg an expression with variables in It 
after substitution of values for 71 1,'s"* and binds var pn the 
proper matcher alia! to that expression. 

E. IT var -- This is also for method pat tern a only. It matches 
any expression that either |>var or F<var would match; in the 
former case, it binds vfir to the variab1 b-I ess expression 
matchedj in the latter, to *UHA5£]GNED. Hence, inside a method, 
such a variable will be assigned only if it «atch B d a definite 
cHprrsnion, 

F T !$var — This 3s another ambiyuou* expressiOh, which only 
Works in FETCH-pat terna. If var is unassigned, it behaves like 
l>var+ otherwise, like 1,Vfir, 

G, !' var This expression appears to have no- use except In 
method patterns, St matches soy expression, without lookinp at 
i t t and binds var to it, even- if it contains variables whose 
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values could be substituted. it is useful for doing obscure 
syntactical decomposH I on 9 on patterns. 


AH thee? features are explained in greater detail in Sect. 


IV. 
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V11 *3 Debugging in Connivar 

There are four classes of debugging functions in Conn i vert 
11 • ten- l oop Ibreakpolnt) functions, In format ion printers* a trace 
package, and variable epnltorg. The first three classes of 
function are discussed In the three sections below. 

Variable monitors are not a particular hunch of functions, 
but a mechanism for using Lisp functions tor performing debugging 
actions when variables are referenced or changed. It is 
Implemented as follows: Conniver variable locatives, at the top 
and lower levels, are Implemented as lists of the form (atom 
vaiu# tmonl tor]J. The optional monitor is a Lisp LSUBR or LEKFR, 
of tuo or three arguments. it will be called uhenever the 
variable is accessed or set, m the former case with two 
arguments, in the latter with three. The tug arguments for the 
case of accessing are the name of the accessing function {usually 
™/ + n 'j and the locative involved* For sett ins, the three 
arguments are the setting function [e,g,, C5ET1 * the locative 
before the eet, and the new value* 

There are no special functions for placing a monitor* It can 
be -done with RPLACC in the following fashion: 

(RPLACD £VLQC atom! {LIST monitor]) 

A-huth-er debugging feature is the nterrupta, described In 
Sect* V. Each- function of "’A rs repainted in this section in its 
logical category) a complete listing is found In Sect, v, 
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R-emamber that others miij de added by th# usgr H 
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VII *3,1 Listen-Loop Bui IdErs and Han i pu f atpr p 


A* {LISTEN message) 


CEXFR 

SUBR 

5UBR 

SUBR 


EEAH! 
{NEARI 
(TOP! 


These functions create and return to listen I cops whose 
bodies contain I papa referred to by tags of the form £AR-n, 

Those are called "ears. M LISTEN creates 3 non ouch loop, which 
la a READ-CEYAL^CPRINT loop just l ike the top level P printing its 
message argument, followed by EAR-n, Whenever It 19 ready far 
the newt Input, It types (left-arrow cr underscore], 44 3 tin i r> 

such a Focp„ the following Internal Lisp variables may prove 
useful: ft* 4e bound to the te9l expression reach ft, to the value 

of the East expression]; and _ to the expression before last. 

These must be accessed using “ If you wish to flush the 
current input line, type "'AF, which responds with a carriage 
return and a reprint of 

Within such a loop, the tag EAR points to a place in the body 
which print* EAR-n and restarts the loop; the variable EAR-n is 
bound to that tog- Thus {GO 'EAR) and {GO EAR-n) have the same 
effect. Like all Other tags, ears may be used far relative 
evaluations end EXITlhg as mb I I as GOmg: therefore, to cause a 
LISTEN to roturn a value, use (EXIT value EAR-n)* IP or 
(DISMISS! causes NIL to be returned. 

The remaining functions manipulate: such listen I pops, (EAR) 
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interrupts Conniver 3n the next possible place* sprouting a neu 
ear] "AE call* this function, (NEAR) interrupts Conniver with 
<GG 'EARJj l-a., it causes it ta return to the nearest already- 
eHistin^ ear$ "AN calls M* [TOP] flushes the currant Connivor 
Stack, resets the ear counter iq 1. unbinds all previous sarg, 
and sprouts a neu EAR-1 % typing "AT has the same effect* Both 
■"AE end "AN work only at places where Conniver Is interruptible, 
l.e*. between steps in evaluation. They cannot he used in the 
middle of infinite printouts. Lisp evaluations, or READ'S. 

a* EUP En 11 taction > BT1 (whichI ink ’CDNTRQLl! CEXPR 
CDDLJN En 1] lection f QV) CEHFR 

tJ [frame origlnal-LIETEN-access-frame] taction P BT11 

CEXPR 

When a LISTEN ioop Is created, Its access and control links 
are the same.. Evaluations are with respect to them. The 
functions of this section enable you tq apve this entire I cop 
around the centreF tree to examine and alter variables and 
control structures* UP aoves the EAR-leop n frames up either the 
controF or access links* depending on which Fink. Uhen you 
arrive, the value Of action will be printed, unless it is ST {the 
default!t which causes the name data to be printed that BACKTRACE 
(Sect. VH ,3,Z*BJ would print. DOWN moves n frames back down the 
links followed by UP. J jumps to a neu fraee, from which it is 
meaningless to go DDUN, (,J] returns you tq the original place in 


the tree* 
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All thie movement occur* by clobbering the fink on the 

LISTEN frame, The currant one Is stored as CURFRAJ1E# The 
control link is net die tor bed, so iDtSIHtBEJ or tP work even if 
you have moved the fra re away from where It started. 

If you attempt to go UP off the top-level EAR or DOUM further 
than yDU*ve come Up, the message 
excess FRAMES TOO FAR 
will appear, and no action will be taken * 

C. (CERR * rtriBeeages-rtl F5UBR 

tCBREAlf J 'svmeeeageeffl-J FSUBR 

fCERRMESS) SUBR 

The messages are printed an the same line, one after another* 
thoee of the fora "asup' being Lisp-evaluated, after which a Lisp 
READ—EVftL-CPRINT loan is created. CERR first prints "fnVERROR-faft" 
and the farm Conniver was narking on. Express ions Df the form 
{RETURN value) cause the CERR or CSREAK to return the given 
value? EP 1e equivalent to (RETURN NIL]# A listen loop like this 
is area ted at the next Lisp-interruptible place by te AL. 

Tlert catchable data base errors cause CERR-1oops to be 
created# Llithip such a loop, an ERRSET will catch all Lisp 
errors# Including "X *AF wilt fllfth the current input buffer. 
(CERRflESSi cause b the messages to be reprinted. If the priority 
interrupt system has been disabled while the data base is in an 
lneon*latent state, CERR or CBR£AK will turn it on far the 
durstiOh Of th* loop? If it is ieft nith RETURN, it will yO Off 
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again.* [ f "^G ] e eifecutEG, however H the data base may 
scraMtOi it might be right to UATA-IWt? to I lowing such 
retreat. 


be 

a hasty 
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Vri,3,2 Data Printer h 

A. (CPRINT exp) SUBR 

fCPRINl exp I SUBR 

Those functions hehev* exactly like their Lisp cauntarpOr ts 
PRINT and PRINL+ except that they are "prograwmab I a, “ in the 
sense that special data tLfpes are primed in different nous 
according to their CAR's, CPRiNl prints atomic argument on the 
current line; if its argument's CAR is an atom with a CPRINT 
property* it doeg something special] otherwise, it CP£lINl + s its 
CAH, then Its COR* (Us are not being very precis*.* If ths 
argument does hev* a marked CAR, the CFflINT property is assumed 
to be a FEXFR or FSUBfit CFRIN1 *tar*|y applies It to th-e thing to 
be CPHIIMTad. In all cases, CPRIN1 returns the thing printed* 
□PRINT prints a carriage return* tPfl|Nl'g Ms argument, and 
prints a space, then returns its argument* 

The built-in data typss treated specially by CPR1N1 are as 
follows; all quoted expressions, statements labels, isatcher 
variables* end other system macro'd data ar* printed in the same 
format as they are Input; tags, frames, and closures arc printed 
In Such a way that internal fr pointers are replaced by the 
expressions that gave rise to those fr + s. The user is free to 
add new data formats to this list by creating FEXPR 1 s attached to 
atoms used to flag them* For example, to make all contexts print 
out as lists of numbs"a, execute 
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(OEFLtt'J CP-CONTEXT FEXFH tOOIMI 
IPRIN1 (PATH CON)1 ) 


{□EFPROP ftCONTEXT CF-CDWTEXF CPRINT) 


EL (EXPRESSION frame! 

(BACKTRACE Inumber G9G9G9H 


SUBR 

LEXPR 


EXPRESS I CBM r* turns the form whose evaluation gave rise to 
frame; it is documented in Sect. VI) .1.4* 

BACKTRACE types out. in a very readable form, the ewpresai ana 
corresponding to each frame of the current process, starting- with 
the current frame* end proceeding by control links to the top 
level. The optional numerical argument may be supplied to limit 
the typcou t to that many frames. The backtrace i s programmable 
in the following sense: If An expression's CAR has a BACKTRACE 
property* the property is aesuned tD be An EXPR or SUBR of two 
arguments, a frame and a Mat of arguments! BACKTRACE applies the 
function to the frame And CDR of the express i an And doss noth ing 
else. This is used internally to print EAR-frame a, PRDG's* 

COND's, and other things in special formats. Another way to use 
OKpr^sal ons is with ''AX* which causes the current (EXPRESS I ON 
(FHAhE}) to be printed. Execution then continues. 


C* IPATH Icon text CONTEXT)) 


LSUBR 


The value of PATH is a list whose first element Is -j'fCQNTEXT, 
fo Mowed by the I nuns of context's layers* Such an object serves 
no useful purpose, but it ra much more more lucidly printable 


VII.3.3 143 


than context Itself* 


n general „ 
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Yl 1,3,3 Tracing rrt Corn!ver 

For those who life# to trace, th^r* ;« a crude trace package 
uhich Bwie Is as CNVR;C 7 RACE >, It is not norma My part of the 
Ccnniver system, Suggest ions and volunteers tor improving It are 

UB4 cone. 

The Lrsp tracer may also to used while Conniving, 

Ah (CTFIACE ' ftgpeca*) CDCPFT 

Each epee Is Of the fora {atom EN ftthinge-tes-do-an-entranceft 
EX *thinge-to-do-on-exi t*I* The order of EX and EN is 
unimportant* If an Elf is present, a message win he printed 
khan the function is entered, and the things to do Ml FI be 
EVALuatcd; EX 1 □ similar* Both are optional* although leaving 
both out Is a slow no-op, Jf a ap*e is an atom* It Is equivalent 
to (atom EN tCPISFLAY skARGB] EX (CPTSFLAY *YAU > * (Bee Oelou.) 

141 thin a traced function, ftARGS ui II3 be bound to a list of 
evaluated or unevaluated arguments (the status Df each of which 
depends l»aginatively on the variable declaration* of the 
function)? and oVAL ui 1 I I * on output, be bound to the value the 
function is to return. 

Functions, generators, and methods may be traced* 
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&. ICUNTRACE '*at0*3^1 CEXFR 

Each atom bin at be & CTfiACEd 1 uric t ion, which le un traced. 

C, (CD]SPLAY ^things*) FEKPR 

This is a handy function in tracing. It prints out & table 
□ f the LI ap value of each thing, unless it is an atom, when its 
Conniver value will be printed. Thus, to see the arguments to a 
function and th-e CAR of the Conniver variable F00, use 
ICDISPLftY *ARGS (CAR .FOOJ), and get 
rtAiftfiS -m Hhatever-they-are 
(CAR ,FGD) - whatever-it-1a. 


□ * {/: f atom> FEJCPFt 

{/: atami is the Internal representation of :3to*u The 

Lisp trace package can be used to trace the function 'Vi,' 1 thus 
aliening your 1 I ou of control. 
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